


150 DATA"SUR LE ROCHER" ,"DANS LES TOILETTES”, SUR LE BUREAU" ,''DANS LA PORCHERIE" 
,' DANS L'EPOUVANTABLE ODEUR","SUR SES CHAUSSURES" ,'' DANS LE TELEVISEUR'" ,'"SUR LES 
WC! 

A=INT(RND(1)%X3): PRINT À 

IF A=1 THEN RESTORE 40 ELSE RESTORE 50 

IF A=1 THEN MAS =1 ELSE MAS=0 

FOR F=1 TO INT(CRND(1) #3) 

READ AS 

HEXT F 

"LECTURE ADJECTIF 

RESTORE 70 

FOR F= 1 TO INT(RND(1) #14) 

READ B$ 

HEXT F 

IF MAS=0 THEN GOSUB 460 

"SUJET M-F 

1F MAS=-1 THEN RESTORE 90 ELSE RESTORE 110 

FOR F=1 TO INT(RND{(1)*x13) 

READ CS 

NEXT F 

RESTORE 130 

* VERBE 

FOR F= 1 TO INT{(RND(1)2%x12) 

READ DS 

NEXT F 

RESTORE 150 

* LIEUX 

FOR F=i TO INT{RHD(1) X9) 

READ ES$ 

BEXT F 

" AFFICAGE PHRASE 

CLS:PRINT AS+" ‘"+BS+" "+C$+" "’+D$+" "+ES 

IF INKEY$=""THEN GOTO 450 ELSE CLS: GOTO 160 

"SP ACCORD M-F 

RS=RIGHTS (CBS, 1) 

IF R$="'X" THEN O=LEN (BS) : B$=LERTS (BS$, O-1) : B$=B$+" SE" : RETURN 

B$=B$+"E": RETURN 





ORIC 


EPIDEMIE 


Une grave maladie ravage la ville. Dans un premier temps, elle 
atteint la tête puis s'attaque au corps. 
Vous avez six étapes pour lutter contre la maladie en 
détruisant les virus sans endommager 
les anticorps. Attention aussi aux vaisseaux sanguins ! 


REM k 4 ok ke ke DK DMC DM Ch CC COCO OC OK 6 OC COCO KE 90 NEXT 

REMX EPFIDEMIE — R.JUHEL 1986 k 54 REM 

AE ke ke ke ke ke 9 DC CC OK DC OMC DKC DC DK CC OO DC OC CON SS REM HOMME 
REM 56 REM 


PAPER 1 : INKO DATAQ, 12, 30,30, 30,30, 12.30 
POKE618. 10 70 DATA1.7.15.15,15.13,13,13 
FOR 1=0 TO 167 DATABZ, 63,68,63,60S,6%, 63,67 
READ AA DATA32,56, 60.60.60, 44, 44,44 
POKE 46856+1,AA 100 DATA9,12,17.12,8,13,9,9 















300 
310 
320 
330 
Sd 
332 
as 
3354 
335 
536 
337 
340 
450 
500 
904 
505 
906 
510 
520 
D21l 
9430 
540 
9950 
5959 
960 
970 
575 
580 
5970 
6Q0 
1530 
1535 
1536 
1540 
1550 
1560 
1990 
ZQ00 
2001 
2010 
2020 
2040 
2040 
sieleie) 
3010 
3015 
3016 
3070 
3030 
3040 
5050 


DATAS6, 12, 12,12.4,44,36,36 190 DATA 0,30,335,37.,32:.25,6,0 


120 DATAL,1,1,1,1,141,1 200 DATAQ,127,18,18,12,51,0,0 
130 DATA63,63,51,51,51,33,51,51 210 DATAO,4,4,11,26.4,4,0 

140 DATASZ. 32, 32,32,52,32,32,32 220 DATAS2,32,47,28,28,4,4,4 
150 DATA1,1,1,1,7,31,0,0 230 DATAZS, 18,30,12,12,20, 18,33 
160 DATAS1,51,51,33,51,0,0,0 240 DATA6S,S51,45,29,21,29,45,21 
170 DATA32,32,32,32,56.,62,0,0 250 DATA6S,25,45,41,45,37,59,6% 
174 REM 260 DATA49,59,53,53,53,49,59,59 
175 REM PARTICULES 270 GOTO3000 

176 REM 289 REM 


DATA 14,4,10,10,10,14,4,4 290 REM VARIABLES 

















REM 










A$S(1)="cccccecce ceccccccec":4(1)=10:H(1)=70 
A$(2)="cecceccceccc ccccccccccec"':A(2)=12:H(7)=78 
AS(S)="ceccccceccecc ccccccccccecc"sA(Z)=14:H(5)=76 
A$(4)='"cccccecccccecec ccccccceccccccc'sA(4)=16:a(4)=2 
X=20: Y=20 

PH=1:C=1:6-1000:GOSUR40G0 







PFH=2Z:C=2: 56-2000: GOSUR4000  . 
PH=S:C=2:6=-5000:Y=21: GOSUR4000 
PH=4:60=33 G=6000: : GOSUB4O00Q 
PH=S:C=7:6=10000:Y=22: GOSUR4000 
GOTO5900 

PYV=100 
FORI=1T0Zé6:PRINTAS(1) :NEXTI 

K=i 

REM 

REM AOUCLE JEU 

REM 

FORI=ITO =Q 

PRINTAS (K) 
IFSCRN(X, Y) < >SPTHENGOSUR2000 
FOR F=1TOC:PLOTINT(RND(L)K(B(H)-A(K)+1) +A(KH)).25. CHRS (INT (RND (1) k7) +116) 
NEXTF 
P=PEEK (#208) 

W=X 

IF P=172 THEN FLOT X,Y," “sX=X-1 
IFP=188 THEN PLOT X,Y," “se xX=X+1 
IFW<XANDSCRN (X, Y)}< >S2THENGOSUB2000 
PLOT X,Y,'"m" 
IFPVS>=GTHENRETURN 
IFPV=OTHEN GOTO 6000 

NEXT 

PLOTS,25,"PT VIE:" 
PLOTS.,25, STRS$ (PV) 

K=k+1 

IF K=5 THENKeL 

GOTO Si0 

REM 

REM INSTRUCTIONS 

REM 

SC=SCRN(X, Y) 
IFSC=SOSTHENPV=PU-100:RETURN 
IFSC< 11Z2THENPV=PVY-(SC-109) Kk30-30: RETURN 
FV=PV+(SC-112) 410: RETURN 



















































REM 
CLS: PRINT: FRINT"TOF SECRET": PRINT 

PRINT" 10 JANVIER 2004" = 
PRINT 

PRINT" RAPPORT EPIDEMIE" 

PRINT" u 
PRINT:PRINT:PRINT 

PRINT" LA SITUATION DEVIENT DE PLUS EN" 









PRINT" PLUS CRITIQUE.LA MALADIE SE 








139 






3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3200 
3210 
3215 
3220 
3230 
3240 
3245 
3250 
3260 
3 

3270 
3280 
3290 
3300 
3310 
3400 
3990 
4000 
3010 
4015 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4095 
4100 
5000 
5010 
5020 
5030 
5040 
5050 
5060 


[U 




























3070 
9080 
93070 
5100 
5300 
6000 
7000 
7910 
7020 
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PRINT'VITESSE FOLLE." 

PRINT" TOUT LES SERUMS SE SONT REVE- LES INUTILES, ": 
PRINT'CEPENDANT IL NOUS RESTE UNE MAIGRE CHANCE: * 
PRINT:PRINT" STATUS 1" 

PRINT:PRINT" STATUS I EST UN SYSTEME EXPERI- MENTAL, 
PRINT"IL À ETE MIS AU POINT AVANT QUE L'EFIDEMIE NE SE" 
PRINT" DECLARE. " 

PRINT:=:PRINT" DR.RIEUX" 

PRINT" <PRESSEZ UNE TOUCHE>" 

GETZS 

FOR I=i TO 3O:PFRINT:NEXTI 

CLS 

PRINT:PRINT" MODE D'EMPLOI : STATUS 1° 

PRINT: PRINT: PRINT" <—3 GAUCHE +: DROITE" 

FRINT:PRINT"VOUS ALLEZ VOUS DÉPLACER DANS LES": 

PRINT" ARTERES ET LES VALSSEAUX ‘": 

PRINT'SANGUINS D'UN MALADE. " 


PRINT"SI VOUS GUERISSEZ LE MALADE , SON SANG FOURRA SERVIR À CREER UN SERUM 


PRINT" QUI NEUTRALISERA LA MALADIE," 

PRINT:PRINT'LE SORT DU GENRE HUMAIN EST ENTRE VOS MAINS." 
PRINT:PRINT'POINTS DE VIE:": 

PRINT'A EVITER: n:-60 o:-90 p:-120 c:-100" 

PRINT"'A DETRUIRE:z g:10 r:20 s:5SÙ t:40" 
PRINT:PRINT'<PRESSEZ UNE TOUCHE": GETZS$:GO0OTOS00 


REM 

REM DEBUT PHASE 

REM 

CLS 

PRINT:PRINT" PHASE : “4 PH 
PRINT:PRINT" a" 
PRINT" bcd" 

PRINT" ecf" 

PRINT" ghi" 

PRINT" ik" 


PLOT11,2+C,STRS(PH)  :PLOTI1,2+C, "<" 
PRINT:PRINT"'POINT DE VIE NECESSAIRE: "; 


WAIT200 

PRINT :PRINT:PRINT:PRINT"'<PRESSEZ UNE TOUCHE >": GETZ$:GETZ$:G60T0340 

REM GAGNE 

CLS:PRINT:PRINT" TOP SECRET" 

PRINT:PRINT" 10 MARS ZO004"s:FRINT 

PRINT" RAPPORT EPRIDEMIE" 

PRINT. nn. TRS Ÿ 

PRINT :PRINT" TOUT DANGER EST MAINTENANT" 

PRINT" ÉCARTE.LA VIE VA POUVOIR":PRINT" REFRENDRE SON COURS NORMAL 


PRINT"TOUT CELA NOUS LE DEVONS À UN MYSTERIEUX INCONNU"; 
PRINT" QUI GRACE À SON HABILITE NOUS À SAUVE. " 
PRINT:FRINT:PRINT" BRAVO ET MERCI" 

PRINT: PRINT" DR, RIEUX" 

GOTO7000 

CLS: PRINT:PRINT"  PERDU":G0OTO 7000 

INPUT"VOUS RECIDIVEZ (O/N)": AS 

IF A$="O"THEN RUN 

END 


ORIC 


MASTER DESIGN 


Ce logiciel vous propose de dessiner vos propres 
personnages afin de réaliser des jeux 
d'aventures graphiques. Vous pouvez aussi créer des motifs 
qui serviront de toile de fond à l’histoire 
et il est possible, en prime, de garder le tout en mémoire ! 












ë, RE K CO OKON CO OC OC COCO HO Ke 
J REMX MASTER DESIGN * 
6 REMX R.JUHEL 1986 * 
7 
8 
g 








REIN OCNCKC M NE IC OK OC NC NC 
REM 
REM WIN MOKN KOONOCK 
10 REM INITIALISATION 
11 REM KK KM UCROKNONK 
12 CLS 
13 POKE618,10 
14 DIMA(100) 
15 A=1:E=1 
16 REM #3 KK KO K NON NC MO OKON 
17 REM ENTREE DES PARAMETRES 
18 REM K 4 KM NOK OCR MOK MC OC WE CON 
19 INPUT'"INSTRUCTIONS (O/N)"3;A$:IFA$S="O0"ORAS="OUI"THEN GOSURB10 
































2Q INPUT" DESIREZ VOUS REDEFINIR PLUSIEURS CARACTERES":A$ 
S0 IF A$<:"0" AND A$<>"OUI" THEN INPUT"CODE ASCII":4(1):G0OT070 
40 INFUT"'NOMBRE DE CARACTERES DE GAUCHE A DROITE (i-5)"sA 


90 IF A5 OR A<1 THEN GOTO 40 

69 INPUT'NOMBRE DE CARACTERES DE BAS EN HAUT (1—-2)":E 
&6i FOR J=1T0O ER 

62 FOR I=1i TO À:7Z7=7Z+1 

65 FRINT "CARACTERE DE COORDONNEES “3;"("3;}s"-"s:Js")";: INPUTA(Z) 
64 NEXT 

65 NEXTIJ 

70 CLS 

73 FORI=0T0O7: POKE46840+1I,6%:NEXTI 

77 REM NOK HN KOK OK ICONE K 

78 REM MISE EN PAGE 

79 REM KKKKKEKK NUM 

8Q DOKE 18,48000: PRINT" 1 2 S 4 Le) L 
90 CLS 

100 PLOT 2,0,"1":PLOT2,8,"2":PLOT2,16,"3" 

110 PLOTZ,26."<F>FIN SE>EFFACE <I>INVERSE" 

120 MX=2+AKk6: MY=B*XB-1 

121 REM KXAXKYNNKOKON CN NOK KE N K 

122 REM TRACE DES CARACTERES 

123 REM KW Ke NC k CON DC OUOK MCE OKK NCCUCK 

129 Z=0 

130 FOR J=1TOH 

140 FORI=1ITOÀ 

145 Z=Z+1 

146 E=A(Z)-97:E=EX9: E=46056+E 

158 FORK=OTO7 
F=E+kK:P=PEEX (F) :M=64 
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163 
164 
190 
195 
197 
198 
199 
200 
215 
216 
220 
230 
740 
250 
280 
290 
300 
310 
320 
330 
400 
401 
404 
405 
406 
410 
415 
420 
430 
440 
344 
445 
446 
450 
460 
470 
480 
490 
500 
510 
520 
597 
598 
599 
600 
610 
620 
630 
640 
6850 
660 
670 
880 
690 
187 
695 
696 
700 
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FORL=OTOS: M=M/2 
CMS=OTHENP=P-M: PLOTS+L+(I-1) 6, K+(J-1) #8, É" 


IFF 

NEXTL:NEXTK:NEXTI:NEXTIJ 

X=3: Y=0 

SC=SCRN(X.Y} 

REM Ke 0 OCDE NC DC CAC K 

REM BOUCLE PRINCIPALE 

REM ke ke oc he CC OK CO D OC NOK 

GETP$ 

G=0 

C=X:D=Y 

1F P$="Z"AND X>3 THEN X=X-1:6=i 

IF P#$="X"AND X<MX THEN X=X+i1:Gzi 

IF P$="""AND Y>O THEN Y=Y-1:G=1 

IF P#="/"AND Y<MY THEN Y=Y+1:G=1 

IF P$="C"AND SC=32 THEN SC=95: GOTO3Q0 
IF P$="C"AND SC=95 THEN SC=32 

1F G=1i THEN PLOTC.D,CHRS (SC) : SC=SCRN (XV) 
PLOT X,Y,"Xx" à 


IF 


P$="I"THEN GOTO 410 


1FP$="E"THENGOTO470 


IF 


p$<>"F" THEN GOTO 200 


PLOTX. Y. CHRS (SC) : GOTO600 
REM KHOCNICK 
REM INVERSE 


REM 


ELLES. 


XA=INT {(X-3) /6) : YA=INT (Y/8) 


PLO 


TX, Y, CHR$ (SC) 


FOR I=(3+XAk6) TO (B+XAKk6) 


FOR 
IF 
REM 


J=YA*X6 TO (YAKB+7) 


SCRN{I,J)=95 THEN PLOTI,J," "ELSE PLOTI,J, LÉ" 


KAIOOUX 


REM EFFACE 


REM 
NEX 
GOT 
XA= 
FOR 
FOR 


LELETT) 

TJ:NEXTI 

0195 
INTO(X-3) /6) : YA=INT (Y/8) 
I=(Z+XAk6) TD (B+XAK6) 
U=YAX8 TO (YAXO+7) 


PLOTI,J," " 


NEX 
GOT 
REM 
REM 
REM 
z=û 
FOR 
FOR 


TJ: NEXTI 
0195 j 
KO DCE CC OK DH DOC OC OO OC COCA CON 
REDEFINITION DES CARACTERES 
KDE COCOON OGC OC OC ONCE OO COCO DOC 


J=1TON 
J=1TOÀ 


2=Z2+i 


E=A 
FOR 


(Z)-97:E=EX8: E=46856+E 
K=0TO7 


F=E+K:P=0 :M=64 


FOR 


IFSCRN(&+L+ (1-1) 46,K+(J-1)K8)<>32 THEN P=F+M 


NEX 
REM 
REM 
REM 
Z=0 


FORJ=1TOR 


L=0TOS: M=M/2 


TL: POKEF PP: NEXTK3: NEXTI: NEXTJ 
MC ACACNK DK KO MOOD OC GC OÏOK 
AFFICHAGE DES 8 OCTETS 
KO DC COK DK OC OC OC OCR KE NOK 

s CLS 


FORI=1TOA 
725 Z=Z+i 
730 PLOTS+(I-1)x6, (J—-1) Kk8,CHRS(A(Z)) 
740 E=A(Z)-97:E=EXx0:E=460956+E 
750 FORK=OTO7 
760 PLOT4+(I-1)%Kk6, (J-1) kK6+K, STR$S (PEEK (E+K) ) 
780 NEXTK:=NEXTI:NEXTI 
790 PLOTS,26, "<PRESSEZ SPACES":GETZS:1FZ$=" "THEN RUN ELSE GOTN/90 
804 REM KXKKMKKKINNNK 
805 REM INSTRUCTIONS 
806 REM HKKKKRIGKIUEK 


810 CLS 

820 PRINT: PRINT" MASTER DESIGN": PRINT 

830 PRINT“A CHAQUE CARACTERE CORRESPOND DES COORDONNEES SUR L'ECRAN" 
840 PRINT'ABCISSE (1-5),DE GAUCHE À DROITE." 

850 PRINT'ORDONNEE (1-%),DE HAUT EN BAS." 

860 PRINT"'A CHAQUE CARACTERE CORRESPOND AUSSI UN CODE ASCII (EX:4=65)." 
870 PRINT" (MANUEL ATMOS P.263) 

880 PRINT:PRINT"£E>EFFACE ": PRINT: PRINT "<I> INVERSE ‘: PRINT 

990 PRINT'<F>FIN | 

900 PRINT:PRINT"Z:GAUCHE X:DROITE C:INVERSE LE POINT“: PRINT 

910 PRINT'*:HAUT /:BAS" 

1012 GETZ$: CLS:RETURN 





ORIC 


ZAXXON 


Un jeu d'arcade réalisé en trois dimensions qui 
vous entraîne dans un‘univers de guerre apocalyptique. Votre 
mission : sauver le monde des envahisseurs en 
détruisant leurs vaisseaux et leurs réservoirs d'essence. 


DATAO,0,3,4,8,16,16,24 
RIEMTK K 0 cc COM 2 9 OC COR DC MC M HD CCC D 2 GK DATAO,60,2,5,1,3,5,9 
REMX ZAXXON R. JUHEL 1984 * DATA2S, 16,24,25,16,16,8,7 
REMK CAC OK OOKC COR DICK OCR OC OK DK ACDC DC DICO OK COCO CC DATAS1,5,9.,49,2,6,8,56 
REM DATAO,0,3,7,15.31,3%1,31 
REMDK K MCONCKOMEOCOOKOK OK COR OHC OK CODE DC OC OC OKC COCO ON K DATAO,60,67.635,63,43,61,57 
REMX REDEFINITION DES CARAÂACTERES * DATAO,0,10,4,14,14,4,0 
REMDK 4 ACCRO OCR DKC CO COM OCDE DC OC DAC OC OC DC CCC NC DATAO,0,7,25,35,53, 56,56 
FOKE616, 10: CLEÂAR:PAPERS: 20 DATA6GZ,49,47,44,58,41,537,S5 
A=i:F=20: W=i0 DATAO,0,32,16,B,460,54,17 
FOR I=0 T0199 DATA4S,44,58,41,37,51,45,44 
READZ DATA1S.41,57,47,41,25,15,41 
POKE468S6+I, Z DATA2Z6,9,93,5,1,0,0,0 
NEXT DATAS7,47,41,25,15,41,2S,1S 


DATAO,0,4,7,24,14,1,0 DATAQG,0,17,31,15,7,3,2 
DATA, 14,20,36,4,4,52,28 DATAG,0,0,34,62,60, 48,0 


DATASS,29,35,28, 35,28, :5,28 
DATAO,0,0,12,56,56,48,0 RE dk € 9e RC OK OC DMC HE CG OC ACC NOK DE ECC CC CN 

100 DATAO,0,0,0,0,0,0,€ REM BRANCHEMENT À 10OQ0=ENVOIE 

110 DATAO,0,0,0,35,12,48,0 DES INSTRUCTIONS 

120 DATAZ,28,546,0,0,0,0,0 RE MC CC CC CCC CCC  CDCNC EC CCCC 

139 DATAO,0,0,0,12,28,68,0 GOSUR1I0000 


DATAU,0,0,0,7,15,1,0 





514 
515 
516 
320 
495 
500 
510 
920 
5350 
539 
540 
550 
560 
570 
5SB0 
590 
B0û 
900 
9i0 
997 
998 
999 
1000 
1091 
1002 
1005 
1006 
1007 
1008 
1010 
1020 
1030 
1100 
1110 
1115 
1120 
1130 
1200 
1210 
1220 
1225 
1230 
1290 
1300 
1310 
1320 
1330 
1390 
1400 
1410 
1420 
1425 


1430 
15300 
1600 
1605 
1610 
1615 
1616 
1617 
1618 
1820 


14 


REM 2 ke AK 286 HD D CD OC DC OC OCOCCCICONN 
REM INPLATATION DU DECOR =>PISTE. INDICATIONS) 
REMK 6 DK D OCR OK GC CON DCOKOKC OC DCE DO COCO 


PLOT4,4."ababab" 
J=35 

FOR I=1i TO16 
J=J-2 

PLOT J,Il."efg" 
NEXT 

K=36 

FOR I=10T02S 
K=K=2 

PLOTK, I,'"efg" 
NEXT 


FLOT4,2, PAPE 


REM LE D EATIEN DES VARIABLES 
X=5S:Y=20:C=1:D=1:E=i:H=1:4=1:G0=1:LI=1 
PLOTX,Y, "ab" 
RPOET TT TITI TITI TITTIIITII ILES 
REM BOUCLE PRINCIPALE DU JEU x 
REMK 38 0 0 ke 26 DC OK 2 2 DK DC CCC DC COCOON 
REPEAT 
IFA=2THENPLOTR,S." " 
IF RY20 THEN Az=i 
PLOT10,2,STRS$ (SC) 
IFSCRN(X,Y)<>97 THEN 3000 


IFSCRN(X+1,Y)<>98 THEN 3000 

REM AU DESSUS 

IF PEEK(#206)=174ANDX>3STHENPLOTX, Y, " MePLOTX.Y+1," "si X=X—-1:Y=Y-1 
IFPEEK (#208)=170ANDX<7THENPLOTX,Y," "3 PLOTX.Y+1," “as X=X+i: Y=Y+T 


PLOTX,Y,"ab":PLOTX,Y+1."cd" 

IFB=6AND C=1THENT=INT (RND (1) k6) +2: C=2:U=35 

IF C=2 THEN PFLOT UT,"  ":PLOTU,T+:," 
U=U-2: T=T+i1 

IF C=2 AND U<3STHENC=I 
IFC=2THENPLOTU,T,"ij":PLOTU,T+1,"K1" 

IFB=3S AND D=iTHENL=INT (RND(1)k6) +2: D=2: 0=55 

IF D=2 THEN PLOTO,L," "“:PLOTO,L+1," 
Q=Q-2:L=L+1 

IF D=2 AND O<STHEND=1 

IF D=2 THEN PFLOT O,L.'"mn":PLOTA,L+1,"K1" 

IF E=2 THENPLOTM,N,"  “:PLOTM,N+1," ts: PLOTM,N+2, K 
IF E=1AND B=10 THEN M=35S:N=INT (RND (1) #6) +2 : E=2 
M=M-2: N=N+1 . 

IF E=2AND M<3S THEN E=1:8=û 

IF E=?2THEN PLOTM,N, “qr":PLOTM,N+1, "st": PLOTM, N+2, "uv!" 
IF LI=2THEN PLOTGH,GK," " 

PL=PL+1 

1FPL=?204NDL1=1THENGH=35S: GK=INT (RND (1) ké6) +2: Li= 
IF Li=? THENGH=GH-2: GK=6GK+1 

IFLI=2ANDGH<2 THENLI=i: FL=Q 


IF LIi=? THEN PLOTGH,GK, "y" 

B=E+1 

G=G+1 

IF H=2 THEN PLOTO,P," " 

IF H=i AND G>30 THEN O=35:P=INT (RND(1)Kk7)+2:G=0 :H=2 
O=0- ee P= EE 


1FO=X+1ANDP= YTHENPLOT15, 2 “FUEL : éceerieeee 
a eu STHENeL Orne 
IFO£2 THEN H=1 








1830 IF H=2THEN PLOTO,P, “p 

1690 IF G0=2 THEN PLOTOO,CO," " 

1700 IFC£1B8AND M<1BANDU<18AND G0=1THENGO=2: B=0: 00=35:CO=INT (RND (1) k6) +27 
1710 IF G0O=2 THEN O0=00-4:C0=C0+2 

1715 IF OO<2 THEN GO=1 

1740 IF GO=2THEN PLOT 00,00, “wx" 

1910 IF R>52Z0 THEN A=1 

1815 :IFA=2 AND SCRN(R,S)<232 THEN EXPLODE:A=1: GOSUR4QQO 

1820 IF PEEK(#20B)=13I2THEN R=EX:S=Y:4=2:ZAP 

1830 IF A=2 THEN R=R+2:S=5S-1 

1840 IFA=2 AND SCRN(R,S)<>32 THEN EXFLODE:A=1:GOSUR4000 

1850 IF À=2 THEN PLOT K,S,“"h" 

1990 F=F-0. 1 

1990 PLOTF,24," * 

1991 IF F<=21 THEN 3000 

£Z00Q UNTIL X=89 

2001 RETK OK HOMO OCR NC OO OK DUC CO DDC DICO DC OC OKCOKC OKON 

2002 REM FIN DE- LA BOUCLE DU JEU xx 

200% RE CT DH DC OO ONE HONG ONCONOK 

2004 REM 

2997 REMXKXK OK MENU HOMME COM HO OK DK OK DC COCOON K 

2999 REM GESTION DES VIES PERDUES %x 

2999. REMIK HN 4 KO OK DUC OC OK OC OC OK DC OO ORC OC OCDE OCR CC 

3000 II= SCRN{IX,Y):I1J=SCRN(X+1,5S) 

35001 POKE(#208),0 

3100 : : PLOTX. Ya "MX" sWAITISS: PLOTX,Y," "is F=S0: W=U-E 
3110 IFW=4THENCLS: INPUT'"VOUS RECIDIVEZ":A$:1FAS$<>"O0"THENTI10ELSERUN 
3200 WAIT200 

3205 CLS 

3210 PLOT4,4,"ababab":PLOTW,4," g 

3500 GOT0O495 

3900 REMTK K WKHK CHA KO OC ONE OCOC OK CO HO CC CC K 

3901 REMX4X GESTION DES BATIMENTS x* 

3902 REMX* DETRUITS. # 

S90Z REMXKK MK NH NCOKOMIKOÉC OC OK COCA COCO CO CC ÉCNCK 

4000 IFO=(XORX+1) ANDP=YTHEN: PLOTO,P," “ts: H=1i 

4010 IFR=OO0O0URR=00+1ANDS=COTHENPLOTO0, CO, “ “3 G0=1:SC=SC+5000 
4011 IFR=00-20RR=00-1ANDS=CO0O+1THENPLOTOO, CO, “* "s GO= 1: SC=SC+1000 
4020 IFR=UORR=U+1ANDS=T+10RS=TTHENPLOTU,T," "is PLOTU,T+1," "iCal: SC=SC+IGo0 
4025 IFR=QORR=Q+1ANDS=L+)O0RS=LTHENPLOTO,L,"  “":PLOTO,L+1,"  "s:D=1:SC=SC+rQ0t 
4030 IFR=MORR=M+1ANDS=EN+2THEN ÂA=1 

4040 IFR=GHAND S2GETHENLI=2;: PLOTGH, GK," ": SC=SC+10000:PFL=Q 
4500 RETURN 

5990 END 

6001 PING 

6950 RETURN 

6060 END 

6999 REM KKKMKAKEERRANEEX 

7000 REM * INSTRUCTIONS k 

7001 REM KO COUR NU ACÏCKKK 

10000 CLS: PAPERO: INKE 

10010 PRINT: PRINTCHRS (27) $ "NS" ab ZAXXON ab" 

10020 PRINTCHRS (27) 5 "N"s" ab ZAXXON ab" 

10050 PRINT:PRINT:PRINT: PRINT: PRINT:PRINT"AZOBLIQUE GAUCHE" 
10040 PRINT"Z*OBLIQUE DROITE" 

10050 PRINT'<ESPACE>>TIR 

10060 PRINT:PRINT:PRINT “"ij 1000 mn 2000 Wx _ SO0Q y 10000" 
10065 PRINT'"KI k1 " 

10070 PRINT:PRINT'"qr INDESTRUCTIBLE "3: PRINT'"'st":PRINT'"'uv" 

10080 PRINT:PRINT:PRINT'"p RESERVE DE CARBURANT " 

10100 GETAS 

10110 CLS 
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10200 RETURN 
10299 REM #KKKKKK 


10300 REM *k FIN * 
10201 REM KXKkKXKHE 





ORIC 


EDDY LODE 


Collectez vingt trésors qui ressemblent à des paquets 
cadeaux sans vous faire prendre par les ennemis qui sont à 
vos trousses. Trois tableaux pour vous exercer à la voltige, 

grimper aux échelles, descendre dans des trous de gruyère. 














































AA CANON AONOK 


EDDY LODE * 
R. JUHEL * 
2 AC AC A NC A CON ACC ACK 
PH=i 
At1)=65:A(2)=9Q0:A(3)=60:A(4)=62:A(5)=77: ZT=700 

6 GOSUB1040 

10 POKE616, 10: CLS: PRINT: PAPERO: INK6 

14 DOKE18.48000:PRINT" MICROJEUX — EDDY LODE - R.JUHEL “ 
20 CLS:PRINT:PRINT" MENU": PRINT" Se 
30 PRINT:PRINT:PRINT" <1> INSTRUCTIONS" 

40 PRINT" <2> JOUER" 

50 GETZ$:1IFZ#$="1"THEN GOSUB12010 

eù CLS 

100 RO=21:LE=1: GOSURZ2000: GOSUB1 300: GOSUR1 1510: GOSUBSON 
101 CES 

110 RO=17:LE-7: G0OSUBY000: GOSUB! 300: GOSUR1 1510: GOSUBSO0 
111 CLS 

120 AO=17:LE=2%: GOSUR4000: GOSURi 300: GOSUR1 1510: GOSURSO0 
130 PRINT"'BRRAVO":GETZ# 

140 PRINT'LE TEMPS EST DIMINUE DE SO UNITES." 
150 PRINT'"'DEPECHEZ VOUS!'::" 

155 ZT=ZT-50 

160 WAITIOO:GETZ$ 

170 GOTO60 

499 7 KW MOUCHE NU NOK 

500 ’*x ROUCLE JEU * 

SO 7 MACRO ONU NC NACRE 

510 GOSUB 1300 

520 T=2T 

590 XY=48096%:W=32:DI=1:6=1 ar 

9971 XY (1)=48163: XY (3) =48554:L=is:DI(1)=1:DI (H)=3:C (1) 52 sC(T)=32 

S9S PLOTES, 25, STR$ (LE) 

&40û REPEAT: P=PEEK (#208) : IFP<>S6THENPOKEXY.W 

&Qi X1=PEEK (XY—40) : X2=PEEK (XY) : XS=PEEK(XY+40) 

602 IFX1=1070RX2=106THEN610 

605 IFXS=107THENPOKEXY, 32: XY=XY+40:W=107: XC=1: GOTO66S 

604 JFX3=108THENBO=BO- 1: X3=32: W=32: SC-50+100:G=1 

605 IFX3=32THENPOKEXY.W : XY=XY+40:W=82: DI=1: GOTO6B0 

610 (FP=1B88ANDPEEK (XY+1)<>10STHENXY=XY+1: DI=1 

620 IFP=172ANDPEEK (XY—1) <>1OSTHENXY=XY-1: DI=S 

ésû LFP=1B0ANDXE< > (105AND107) THENXY=XY+40:D1=5: IFDI<>106THENDI=1 

LFP=156AND € CX 14 >105ANDW= 106) ORX1=106) THENXY=XY-40:D1=5S: 1FX1<Y106THENDIS1 


7h 
7x 
7x 
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665 IFP<SSGTHEN W=PEEK (XY) 

éé6é IFW=10BTHENEO=EO- 1: W=32: SC=SC+100:6G=1 

670 IFPEEK(XY-40)=107TMHENDI=7 

680 POKEXY, (96+DI+R) 

890 Le-L:A=L+2:F=2-L3:POKEXY (FI ,C(F) 

692 IFXY(1)=XYORXY(2)=XYTHEN GOTO7000 

893 IFXY>XY (A) +40ANDPEERK (XY (8) +40) < > 10STHEND=40: GOTO720 
696 IFXY<XY (A) -40ANDPEEK (XY (A) -40)< >10STHEND=-40: GOTO72Q 
699 IFXY:XY (À) ANDPEEK(XY (A) +1)<2>10STHEND=1:DI (4) =1: GOTO720 
700 IFXY<XY (A) ANDPEEK (XY (A) —-1) <> 105STHEND=-1j:DI (A) =3:G0T0720 
710 D=0 

720 POKREXY CA) ,C CA): XY (A) =XY (A) +D: C (A) =PEEK(XY CA) ) : FOHEXY CA), (Hé+DI (A) +R (Ai) 
750 IFR(A)=OTHENR (A) =1ELSER (4) =0 

740 IFXY(1)=XYORXY (3) =XYTHEN7QOQ 

780 IFG=1THEN PLOTS, 25, STR$ (SC) : G=0 

785 T=T-1:PRINTà21,25;: STR$S(T)3" "2 IFT=OTHEN 7000 

789 IFR=ÔTHENR=1ELSER=0 

790 UNTILBO=0Q 

809 RETURN 

CRIE LTII TITLE T3 720) 

805 ’*K FIN BOUCLE * 

206 * ARNO 


000 
1039 ŒTTTTISITIETITLELST TE TT EE ST EEE, 


1040 ’*X REDEFINITION DES CARACTERES k 
1044 0e de CD CCC DCE CCD CC ECC ONGN 
1050 FORI=0TO111:READZ: POKE46856+I, Z: NEXT: RETURN 
1199 7 KR MON NCUCU HONG NONOK 

1200 *Xk BAS D'ECRAN # 

1201 7 HU CO I CR NNON 

1300 

1320 

1996 "HR COUOONRÈK 

1997 ’k TABLEAU 1 à 

1998 ? KHAOK OK MONONONK 

ZO000 PRINT: 


2001 PFRINT"i 
2002 PRINT'i jiiijiiii liiiiiiii 
200% FRINT"i j j iiii 


2004 PRINT"“iii j iiiijiiii ii 
2008 PFRINT'"ii j j 
2006 FRINT"ii j dj KKKKKKKKE 


i 


2007 PRINT'ii 1 
2008 PRINT"iiii 
2009 PRINT"ii 


iii 

1 jiiiiii ii” 
i j ii L” 
i j i i 
1 j iiiiii i‘ 
ji : ls 

3j 1 3 iii” 
iijiiigj 1! a" 
j iiiji" 


2019 PRINT'"ii j iij j j ji" 
2020 j i j j ji" 
2021 11 i 1 jiiiiii ja" 
2022 PRINT'"i KkKKk j iii iii j ji 
202% PRINT“i J i 1 1j 1 ji“ 
2024 PRINT'"i iiiii jiiii i ii 

2025 FRINT'"“i 1 j 1 ii :1 

2026 j ii iiii ji 1.4 JE" 
2027 PRINT“i ji kKKKKKK jji jiii ji" 
2028 PRINT"i j jji jl ji" 
2029 iiiiiijjiiiiiiiiji" 
20340 PRINT"i jii ji" 
2031 PRINT'i ji ii 12" 
2050 RETURN 

29796 *XKAXHKEARKEKX 

2997 *X TABLEAU 2 * 

2999 "KKMAKÉEAKERKN 

5000 PRINT:PRINT"i KKKKKKKKK 

5001 PRINT'i 1 
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3005 
006 
7007 
3006 
37009 
3010 
z011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
z021 
3022 
3023 
3996 
3997 
3998 
4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4020 
4030 
4040 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4060 
7000 
7005 
7010 
8800 
9999 
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10000 ’*x DATA CARACTERES *# 
10001 
10100 DATA6, 4, 30,746, 30: 18,5 
10110 DATA. 4,14:22,71:14,20:6 
10170 DATA24.8,30,56,24,30, 18.48 
10130 DATAZ4,68.28,26,56, 28, 10,24 
10140 DATA4S.41.63,45,45,43,43,49 
10145 DATA4S,41,63,45,45,43,43,49 
10146 DATA4S,41,62,12,12.,20,36, 40 
10147 DATA4S,37,31,12,12,10,9,5 


PRINT“i j 

PRINT"i j j j 1 ii” 
PRINT"i kKkKKKKKK j iii d* 
PRINT"i 1 j it 
PRINT'"'i iiiijiiiiiii 1 5j i" 
PRINT"i jkKkkkkEkkKKkkkkkkiiiiiiiiiiii i" 
FRINT'i 1 3j 1 < 
PRINT'iiii 3j 1 iii 1 1" 
PRINT‘“i j iii iiij ijiiiiitiiijiiii" 
PRINT"i j iiij j ir 
PRINT"i j iiij l j i" 
PRINT'iiiiiiiii diiiiiiiiiiijiiiiiiii i” 
PRINT"i ii j i" 
PRINT"i L j l 2% 
PRINT"ii iiiiiiiiijiiiiiiiiiii]j iiiiii" 
PRINT'"'i l! SHKKKKKHKKKKK j i” 
PRINT'i iii 1 j j 1 i" 
PRINT"i jiiiiii : sididaiisi £" 
PRINT"i j 1 f. se 
RETURN | 

M'TITTÉTTE ETS 

x TABLEAU 3x 

MTTITRTI TT EE 

PRINT: PRINT"ikKKKKKKKKKK j 1 

PRINT"i jiiiiijiii ÿ 11% 
PRINT"i 1 j ii jiii” 
PRINT"iiii jiiiii j iiii CN 
PRINT“i j ij iiiii ÿ ji" 
PRINT"i iijiiiiii ijiii iiii H.. LA 
PRINT'"ij 1 ili i ij L dir À 1" 
PRINT"ijii ijii iiii ijiiiii iiiiiii i" 
PRINT"iji  iji jikkki5 4 
PRINT"iji iji  iiji ij iiiiiiiiiiiiii' 
PRINT"iji ij 1 i jii ii kkKikk “A 
PRINT"'iji iijiii ji dl ij 1 j EL 
PRINT"iji ji i ij iiiii j iiii” 
PRINT'"iji iiiiiiiiii ij iili j iii” 
PRINT"i j 1 ij ii j idr 
PRINT'“i)j ijii ij ER: 4 
PRINT‘“ij j ii i did iid" 


PRINT'"'i kKkkKkKKKKKKKK j ij iiiiiiii 


PRINT'"il j 1j 

FRINT“ii j ij L O i 1 
PRINT"i j ijiiiii jiii 
PRINT"i j 1j diiiiii 
RE TURN 


CLS: PRINT" PERDU"‘":PRINT: PRINT 
PRINT'VOTRE SCORE ":59C 
GETZ$: RUN 

RETURN 

2 DCOK D CO HD AC OC CO OC CC CK 


RTS LE ETIIT I TL EL LL), 












10160 DATAS9,59,59,0,47,47,47,0 
10170 DATA3S,63,33,63,33,63,233,63 

10180 DATAO,0,0,0,0,0,0,63 

10190 DATAO,0,0,54,54,0,54,54 

10200 DATA12,12,28,47,12,12,18,33 

10210 DATAO,0,0,0,0,0,0,0 

11499 "KÉRÉIEREX 

11500 ?’*x CADRE * 

11501" KUIOUR 

11510 

11512 

11513 RETURN 

'ÉCLLARETIIIITITTIIIT1T 

12000 **X INSTRUCTIONS * 

12001 KAKAKÉKÉIRNERERE 

12010 CLS:PRINT:PRINT" INSTRUCTIONS": PRINT 

12020 PRINT" a > VOUS MEME." 

12030 PRINT" 1 > TRESOR À RECUPERER. " 

12040 PRINT" m > ENNEMIS À EVITER":PRINT" ATTENTION ILS SE DEFLACENT": 
12045 PRINT" DANS L’ESFACE." 

12050 PRINT: PRINT 

12060 PRINT" a 3j kkkk " 

12070 PRINT“iii 

12080 PRINT" j 

12090 PRINT:PRINT" 

12100 PRINT" VOTRE TEMPS EST LIMITE." 

12110 PRINT" IL Y À 3 TABLEAU DIFFERENTS." | 
12115 PRINT" LES DEFLACEMENTS S’EFFECTUENT'"':FRINT" AVEC LES FLECHES." 
12120 PRINT" BONNE CHANCE. 

12130 PRINT: PRINT" <PRESSEZ UNE TOUCHE >" 

12140 GETZ$:RETURN 

12999 ?KKKKKKK 

13000 ’# FIN 4 

13001 *KKKKIKE 





ORIC 


CATERPILLAR 


Ce logiciel propose cinq tableaux de difficuité 
croissante. Une chenille se promène dans un labyrinthe où 
elle doit collecter le plus de pilules d'énergie possible. 
Mais attention, si elle se mord la queue, elle meurt ! 


RERDK K COOK DÉCOR OK OMC OC OK NOK 
REMX CATERPILLAR k 
RE PDC OM OC OC OK ONE OC OO ONE OC OC 
REM R.JUHEL 
PAPER4: INK7 


GOSUHS5000 

7 CMCNC ORCH UK NC NCK 

"X INITIALISATION & 

7 MONO NON CCC OC CN CCR 

10 POKE618,10: ELS:G6O0SUB6000:CLEAR 
ZQ TI=S00:DIMX (30) : DIMY (30) : GOTO1000 


Ea 
TUTUbRAIHe © 





MULTI LTLETSITS ES) 

*x CONTOURS * 

MOTITILLSETTS 
CLS: PRINT 
PRINT'"'ZZZZZZZZZZIZZZILIZZLIZZILZZI21ZZLZ221112" 
FORI=1T021:PRINT"Z Z'sNEXT 
PRINT"ZZZZZZIIZIZZLZILLZZILIZIZZZZZIILZIIZZIIZZ" 
RETURN 

VURNO MONO COC HO NC HOCKK 

**x OBSTACLE 1 * 

FUCK OK OK COM CO OC CC K 

FORI=OTOZ3:PLOTA,B+I,"Z2ZZ7Z":NEXT: RETURN 

2 MC NC AC MC NON CN NCK 

x OASTACLE 2 * 

MTL TLESES TETE EE: 

FORI=OTOZ: PLOTA.B+I,"Z":NEXT: PLOTA+1,B,"22Z2":RETURN 
MOTTE SLEETS 

°*x OBSTACLE 3 *X 

MIT TLTETTT IS: : 

PLOT Ô+2.B,"2ZZZ":PLOTA+1,B+1,"ZZZZZZ":PLOTA.B+2,"2221721211" 
PLOT A+2,8+5,"ZZZZ":PLOTA+I,B+4,"2ZZZZ77":PLOTA,B+S,"22272227" 
RETURN 

PMU NC CCM ACC CNCK 

x OBSTACLE 4 *X 

MTLTLLLLLS STE): 

FORI=OTOZ: PLOTA.B+1,"Z'":NEXT:PLOTA+1,B+3,"2Z22"3:RETURN 
RETURN 

PACK OC COCO OC OC ACHOK 

7x OBSTACLE S * 

MELETLTTEEE ET); 

FORI=0TOZ: PLOTA+S, B+1,"Z":NEXT: FPLOTA,B. “2Z222": RETURN 
FMC UM OC CUCN KO 

"»x OBSTACLE 6 * 

MOUTITETT ST TT); 

FORI=0TO3: PLOTA+S, B+I, "Z":eNEXT: PLOTA.R+3, "2222": RETURN 
RETURN 

7 M NC ON OK NOK OC NON 

**X TABLEAU 1 & 

7 MAC NC MC AC OO OK ACK 

GOSUBSO 

FORR=STOZ20STEP7 

FORA=4TOSSSTEP7: GOSUB90:NEXTA 

NEXTE ; 

FORN=2TO26STEPS: FORM=STOS7STEP7: FLOTM,N, “C':NEXTM, N3 RETURN 
7 RON NONNCAOKNOK 

x DECOR * 

TRMKMANAKK 

D=4:N=5: TE=TI 
FORI=1TOS:X(1)=8-1:Y(I1)=2:NEXT:FORI=1T04:PLOTX (I), Y CL), "KE NEXT 
PLOTS,25, "TEMPS: SCORE : " 

J=1 

7 NOK AC NOM MO NO COMM CN 

7*%x BOUCLE JEU *k 

7 KKKKÉUMKENÉK IH 

REPEAT 

TE=TE-1: IFTE=OTHENGOTO700 

PLOTI0,25S,STR${TE)+"  ": PLOT28,25,STR$ (SC) 


P=PEEK (#20868) 

IFP=1868THEND=4 
IFP=17/72THEND=2 
IFF-+180THENDS=S 





IFF=iS6THEND=1 
XC=X (N) s YC=Y (N) 
11=0 
FORI=NTOZSTEP-1:X(1)=X(I-1):Y(I)=Y(I-1):NEXT 
GOSUB6QO: W=SCRNIX(1),Y(C1)) 
IFW=9 1ANDIJI=1THENNEN+1: X (ND =XC: Y (ND =YC: RO=RO-1: SC=SC+10:J=ûs: LI=1l 
IFW=91ANDI I=OANDIJ=OTHENSC=SC+10:J=1: HRÔO=HO-1 
IFW< 9 1ANDW< > S2ZTHEN7OQ 
FLOTX(1),Y(1)3,"S" 
PLOTX (N),YEND," " 
UNTILBO=0Q: RETURN 
IFD=STHEND=1 
IFD=OTHEND=4 
IFD=ITHENY (1)=Y(1)-1: RETURN 
IFD=ZTHENX(1)=X (1) —-1:RETURN 
IFD=STHENY (1)=Y(1) +1: RETURN 
IFD=4THENX (1)=X(1)+1: RETURN 
7 NOK NO MO ON OK NOK 
**Xx FIN DE PARTIE * 
PAC ACK KM KO CC NORUCN 
CLS: PRINT'BRAVO...,.'"': 
PRINT'"vous voyez tout arrive." 
G0T0O710 
CLS: PRINT" C’EST FINI .MBIS IL FAUT FERCEVERER, " 
PRINT" VOTRE SCORE EST ":5SC 
INPUT" vous recidivez (O/N)'":0%:1IF0$="0"THENRUN ELSE CLS:END 
799 °KKKXKÉKAKKEMARK 
M TABLEAU 2 % 
FTPL KKAKEMAKEKENKK 
CLS: GOSURSO 
BiQ FORA=STOI7STEP12Z: FORB=STOZ20STEF10:GOSURI10: NEXTE.,A 
920 FORA=9TOZS/7STEP12: FORB=STO20STEP10:GOSUB200: NEXTB, À 
830 FORA=5TOZ/7STEP12:FORH=7/7TOZ20STEP10: GOSUB1I7/70:NEXTB,A 
840 FORA=9TO037STEP12: FORB=7TOZOSTEF10:GOSUR220: NEXTE, À 
850 FORM=STOS9STEP7: FORN=2TO22STEP 10: PLOTM.N, “C'"'s:NEXTN, M 
900 RETURN 
7OS ? KW RU NC NOK NOK OK 
704 "x TABLEAU 53 &k 
905 "KAXAKMKAKINK 
906 GOSUBSO 
910 Â=16:B=9:GOSUR1IS0 
920 FORA=ATOS/STEPS:RB=S: GOSUR9Q:NEXTA 
93Q FORA=4TOS7STEPS:B=1i7: GOSUB9O: NEXTA 
940 GOSUB10000 
950 RETURN 
9598 *KAKKKKKKKREKRXK 
959 °Xx TABLEAU 4 k 
960 *KKKKAKAKMEREK 
961 CLS:PRINT =:PRINT"ZZZZZZZZIIZLZIZIIZIZIZIZZIZZLZZIIZIZIZLZZZ" 
982 PRINT'"Z £" 
963 FORI=1ITOIiO: PRINT"Z Z Fé Z Z Z Z Z Z Z" 
964 PRINT'"Z Z Z Z T AS 
9853 NEXT:PRINT"ZZZZZIZZIZIZZLZILZZZILIIZZZIZZIZIZZZILZIZZILZLZIZ" 
969 GOSUR1I0000 
970 RETURN 
999 XAKXKAEKKARKERMEMUNÉIRLRARXE 
1000 ‘*X GESTION DES TABLEAUX * 
LOQ1 7 KR MON OC MCOK OK OO CCC NC CN 
1005 KHO=25: GOSUBR400: GOSUB460 
1019 HO=16: GOSURBO0:GOSUR460 
1020 H0=25: GOSUB90S;: GOSUR460 
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1030 
1040 
1100 
4999 
5000 
9001 
5010 
5020 
5025 
9400 
9900 
5600 
&000 
6010 
6015 
6Q20 
6030 
4100 
6400 
6500 
6600 
10000 
10005 
10010 
10015 
10020 
10030 
10039 
10040 
10041 


S 


Up 4h) 


ô 
7 
8 
q 


REM% 
REMX 
RER MO OK OK KE OMC CH CO OC OK 
REM 

FAFERO: INES 
REFEAT 
FLOTS5,E," 
E=E- 1 

UNTIL R=i 

Y GOSUEZOS 0 


AO=25: GOSUB9460: GOSUR460 

TI=TI-S50 

GUTO1000 

2 NOK KO MONO CO NOK OC OO CCC CO OK NOK 
**X REDEFINITION DES CARACTERES * 
7 MC MC OKON DCR OCDE OC OKC OC CO OC DC COCO CCE CCE KCN 


DATAI2,30,65,65,63, 63, 30,12 
MrTTT ET 2211112 

?% INSTRUCTIONS *k 

2 NC NO NE CE DKCG NOHCNONCCK 

DOKE18, 48000: PRINT" 


PRINT" eviter les parois." 


FRINT'votre temps est limite." 


GETAAS : GETAAS: RETURN . 

2 he ke DC COR COCO CC DOC OMC CCE CO CC ACICK 
*Xk DISPERSION DES CAPSULES * 
2 8 CC COCO COCO COCO COCO OC CCC 
2=0 


IFSCRN (M, N) € > S2THEN10005 
PLOTM,N."C" 

Z=Z+13: IFZ<25THEN10005 
RETURN 

? KA K 

°k FIN % 

? KAOEKK 


ORIC 


FORI=0TO27: READZZ:POKE468900+1, 22: NEXT:RETURN 
DATA63.63,63,65,658,63,63,63,00,17,18.45,45,18,17%.,0 


CATERPILLAR" 
CLS:PRINT:PRINT" vous devez absorber les capsules d'enerqgies Cet": 


PRINT'il decroit au fur et a mesure." 


M=INT (RND (1) K35S) +3: N=INT (RND (1) K21)+5 





RESCUE 


Des parachutistes largués par leur avion en flamme 
espèrent votre aide. Ils ne doivent pas atteindre 
le sol inhospitalier et sont déviés par un vent d'enfer. 
Sous le feu de F 16 ennemis qui cherchent à 
détruire votre hélicoptère, allez-vous réussir à les sauver ? 


REX KA HE CHE AONCNORONO NC 
RESCUE * 
R.JUMHEL 1986 * 


: FOFE618,10: E=283:0LS 


RESCUE MaWAITISICLS 


REM 


2 REM REDEFINITION DE CARACTERES 


3 REM 


FOR A=0T087 

FING 

READ ER 

FOHE46956+A, BR 

NEXT 
DATA?8,73,16,21,0.0,0.0 
DATA6O, 14,3,%,14,60,7,67 
DATA1S.28.48,48.29.15.16,21 
DATA80,7.0, 7.96, 48, 34,62 
DATA 14,58,2,62,0,0,0,0 
DATA 63,63%,60%,603,,60%,67,63,63 
DATA15.56,0,56,14,23,1,21 
DATAO,0,0,0,0,0,65,0 
DATA6D,15,15,7,15.15,60,0 





99 D 
4 
in4 
105 
106 
110 
115 
120 
130 
200 
201 
517 
516 
F20 
F30 
540 
TS0 
370 
3580 
381 
«Tr 
505 
590 
591 
392 
393 
400 
410 
411 
412 
415 
415 
421 
500 
505 
S10 
520 
530 
600 
1000 
1490 
1500 
1510 
2000 
2005 
2010 
2015 
2020 
2030 
Z040 
2050 
2060 
2070 
2080 
ZQ90 
2100 
2110 
Z120 
2130 
2140 


21590 


2160 
2170 
21890 
2170 


ATAN.0,56.62,56.0,0.0.30,63%.43,22. | 202 V(1)=2:W(1)=7 
2.28.8,70 203 V(2)=12:W(2)=20 

REM 250 PLOTS,2, “RESCAPES: " 

REM INITIALISATION 260 PLAYO, 1.4,50 

REM 269 REM 

PAPER: INKO 270 REM BOUCLE JEU 

CLS 271 REM 

PLOTZ,24,20 299 REPEAT 

PLOT2,25,20 300 ReR+1:IFRS4THEN R=1 

A=20: B=10 310 FP#=KEYS:IFP$<>"" THEN X$<PS 
HS 1: R=O: X=5:V=15 316 IF K=1 THEN PLOT AB." h " 
IF K=2 THEN PLOT AB," h 

IFX$<H"UTHEN PLOTA,R," ":PLOTASR4I," 

IF X$="A" AND E>5 THEN B=B-1 


IF X$="Z" AND H£2% THENR=E«+i 

IF X$=". "AND ÀA>2 THENA=A-1:k=I 

IF X$="/"ANDASSS THEN A=A+i:HK=2 : 
IF K=i THEN FLOT A,B+1,"cde"“:PLOTA, B "pi. © ; 
IF K=2 THEN FLOTA, B+1,"agb":PLOTA. 4" h ” 

IFB+1=YAND (X=ADRX=A+LORX=A+2) THENX=236:RESFE+L: GOTOS10 
IFR+I1=24THEN GOTO200û 

FORI=1TO2 

PLOTV(I) WI)"  " 

VCI)=V(I)+i 

IFR 1AND WCI)2ER+1 THEN W(I)=W(I)—i 

IF W(T)<H+1ANDRS>1 THEN W(I)=W(I)+1 

IF V(I)=SOTHENW(I)=INT(RND(1)K17)+6 :VCI)=2 

PLOTV(I) ,W{I),"ii" 

IF V(I)iSé THEN412 ELSE 415 

IF WCI)=R+1 AND V(I)5=A AND V(I)£=ATITHEN 2000 

IF W(I)=R+i AND V(I)+2%=A AND V(I)£=A+I THEN 2060 
NEXT 

IF W(1)=W(2) THEN S=5+i 

PLOT X,Y." "sX=X+1 








Y=Y+0.25 

IF X=SGBORINTCY)=2STHENY=INT (RND(1)#17)+6 : X=2 / 
FLOTX,Y,'"Kk" L 
IFR+1=YAND (X=AORX=A+10RX=A+2) THENX=S8:RE=RE+1:G0TOS1E0 Ë 
PLOTS,3,STRS$# (RE) 
UNTIL A=90 

REM 

REM FIN DE FARTIE 
REM 

PING:EXPLODE 
WAIT2003:CLS 
PRINT'"PERDU" 


FRINT'VOUS AVEZ SAUVE “:RE;" PARACHUTISTES" 
INPUT"VQUS RECIDIVEZ (O/N)":A$ 

IFA$="O"THEN RUN ELSE CLS:END 

REM 

REM INSTRUCTIONS _n | 

REM L 

CLS:PRINT: PRINT" RESCUE ‘ 

PRINT “ 

PRINT: PRINT 

PRINT"“VOUS PILOTEZ UN HELICOFTERE . VOTRE EUT:" 

PRINT'SAUVER LES PARACHUTISTES EN LES RECEUILLANT à &QRD DE VOTRE ‘ 


FRINT"HELICOPTERE. * 
PRINT"IL FAUDRA EVITER LES F-i6 ENNEMIS QUI TENTERONT DE VOUS DÉTRUTRE., " 


PRINT: PRINT 
PRINT ie ee sd né sh er  péné née éd ; 

PRINT" LES TOUCHES" 2200 PRINT:PRINT® . GAUCHE  />DROITE" 
PRINT “ 2210 FRINT:PRINT'<PRESSEZ UNE TOUCHE >" 
PRINT“ 2220 GETZ# 

PRINT" A>HAUT Z>BAS 2230 RETURN 
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ORIC 


QUAI DES ORFEVRES 


La police judiciaire vous confie la difficile 
mission de reconnaître le truand à l'aide d’un portrait- 
robot que vous n'avez eu sous les yeux que quelques 
instants. Arriverez-vous à vous souvenir de tous les détails ? 


REMK 3 DK CCD DOC DO CO 
REMX QUAI DES ORFEVRES à 
RE 2 CM CD CHE CC ON 
REM R.JUHEL 1965 
REM INITIALISATION : 
TEXT:POKE618, 10: CLEAR: RESTORE : GOSUB2000 
CLEAR :CLS 
REM NIVEAU 
CLS: INPUT'NIVEAU DE DIFFICULTE (1-DUR À 10-FACILE) “4 AM: IFAM210RAM>10THENG 
AM=AMX20: HIRES: FAPER7: INK7 
C(1)=110:C(2)=140:C (3) =160:D(1)=250: D(2)=270:E(1)=200:E(7)=220:E(%)= 
E(4)=%10 
C$ (1) ="MECHE" : C$ (2) ="CHAUVE" : CS (3) ="CHAPEAU": D$(1)="NEZ FIN" 
D#(2)="NEZ BOXEUR":E$(1)="GRAIN":ES (2) ="LUNETTES":E$ (3) ="FOSSETTE" 
E$(4)="CICATRICE" 
DIMID(100) 
GOTU400 
REM DESSINS 
REM VISAGE 
A=X : B=Y: CURSETA, B, 1: DRAWO, 16, 1: DRAW4, 2, 1: DRAW7, 0, 1 
DRAU2,-3, 1: DRAUWO, —-15, 1: CURSETA+4,B+13, 1: DRAWS, 0, 1 
CURSETA+7, B+4, 1: DRAWO, 6, 1: CURSETA-1,B+4, 1: DRAWO, 4, 1 
CURSETA+14,B+4, 1: DRAWO, 4, 1 
100 CURSETA+4, B+4, 1: CURSETA+10, B+4, 1 : RETURN 
110 REM MECHE 


ES 
NT UEUAN RS 


120 CURSETA, B+X, 1: DRAWO, —-7, 1: DRAWÏ2,-3S, 1: DRAWI,9, 13: DRAW—-1G,-—-4, 1: DRAW-T, 5, 1 
130 RETURN 


140 REM CHAUVE 

150 CURSETA, B+i, 1: DRAUS, —6, 1 : DRAW7, O, 1: DRAUX, 6, 1 : RETURN 

160 REM CHAPEAU 

170 CURSETA+1,R-10, 1: DRAW11,0, 1: DRAW1,7, 1: DRAWS, 3, 1: DRAW-74, 0,1: DRAW6, -Z, 1 

180 DRAWI,-7. 1 

190 RETURN 

200 REM GRAIN 

210 CURSETA+11,B+8, 1: RETURN 

220 REM LUNETTES 

2%0 CURSETA+Z, B+3, 1 : DRAW9, O, 1: DRAWO, 3, 1: DRAW-4,—1, 1: DRAW-5, 1, 1: DRAUWO, —3, 1 

240 RETURN 

250 REM NEZ FIN 

260 CURSETA+6, B+9. 1: DRAWZ, O0, 1 : RETURN 

270 REM NEZ BOXEUR 

280 CURSETA+S, B+10, 1: DRAWS. O, 1: RETURN 

290 REM FOSSETTE 

300 CURSETA+7, B+16, 1 : DRAWO, 1, 1 : RETURN 

310 REM CICATRICE 

3270 CURSETA+1,H+7, 1: DRAW2, 2. 1 : RETURN 

400 REM AFFICHAGE DES TETES ET DESCRIPTION 

410 AZ=INT(RND(1)Kk9)+1i1 :Z=0 

500 FORX=20T0200STEP90:FORY=20T0150STEF 60: GOSUBSO: 
Z=Z+1 





IACZ)=INT (RND (1) K3) +1: GOSUBC(IA(Z)) 
IBCZ)=INT (RND(1)K2)+1:GOSUBD(IB(Z)) 
FORIC=1ITO4 
ID (Z—1) K4+IC) =INT (RND (1) 2) +1 
IFID((Z-1) K4+1C) =1 THENGOSUBE (IC) 
NEXT 
NEXTY, X 
PRINTCOS CIA(AZ)D 3 "—" 5 Dé (IBCAZ));"-"3; 
FORI=1T04 
IFID((AZ-1)K4+1)=1THENPRINTES (1) 3"—"; 
NEXTI 
GETZS:CLS:0=0: INKO: SS=SC 
REM TEST DE LA REPONSE 
FORI=AMTOISTEP-1:PRINT'TEMPS: “31 
WAITS : SC=SC+1 
KES=KREYS:IFKS<>"UTHENI=1:0=1 
NEXT 
1FO=0THENBO0 
K=ASC (KS)-48: IFK<10RK>9THENBOQ 
IFIB(K)<>IB (AZ) ORIA(K) <> IA (AZ) THENBOQ 
FORI=1T04 
IFIDC(K-19 K4+1) € >ID ((AZ-1) K4+1) THENBQQ 
NEXT 
CLS: PRINT"BRAVO. . . "5 : GETZS 
PRINT"VOTRE SCORE: “; SC: GETZ$ Fr 
HIRES: PAPER7: INK7: GOTO400 A 0 
790 REM PERDU LA 
800 SC=55 ; 
g10 TEXT:PRINT'VOTRE SCORE: “3; SC 
820 INPUT “VOUS RECIDIVEZ (O/N)":2%:1F2#="O"THEN RUN 
830 END 
2000 REM PRESENTATION 
2005 CLS 
2010 DIMX (18) : DIMY (18) : DIMCH(18) : DIMA(18) :DIMR (18) 
2020 FORI=1TO17:READA: CHI) =A:NEXT 
2030 FORI=6T02%: X(1-5)=1:Y (1-5) =10:NEXT 
2040 DATAB1,85, 65,73. 32.68, 69,83,32,79,82,70,69,86,82,69,B3 
2050 FORI=1T017:A(I1)=INT (RND (1) K34)+2: RCI) =INT (RND (1) #24) +1 
2060 PLOTA(I),R(I),CHRS (CH(1) ) 
2070 NEXT 
2075 FORJ=1TO3O 
2080 FORI=1TO17:IFA(I) >X (1) THENGOSUB3000:A(I)=A(1)-1 
2090 IFA(I)€X (I) THENGOSUB3000:A(I)=A(1)+1 
2100 IFB(I) >Y (I) THENGOSUBSO00:B(I)=B(1)-1 
2110 IFB{I)<Y(I) THENGOSUB3000:B(I)=B(I)+1 
2115 PLOTA(I),R(I),CHR$ (CHCI)) 
2116 IFKEYS<>""THENI=17:J=30 
2120 NEXTI,J 
2125 REM INSTRUCTIONS 
2130 FORI={T050: PRINT: NEXT 
2140 PRINT" INSTRUCTIONS" 
2150 PRINT"VOUS VOICI PROMUS AU RANG DETECTIVE , VOTRE BUT DECOUVRIR LES"; 
2160 PRINT" VISAGES DES CRIMINELS D’APRES UNE BREVE DESCRIPTION....": 
2170 PRINT"VOTRE TEMPS EST LIMITE." 
2180 PRINT:PRINT'LE NUMERO DES PORTRAITS SONT PLACES COMME SUIT." 
2185 PRINT" 1 4 7":PRINT" 2 5 G":PRINT" 3 6 9" 
2190 FORI=11010: PRINT: NEXT: GETZ#: FORI=1TOSO: PRINT: NEXT: RETURN 
2970 REM SOUS-PROGRAMME 
3000 PLOTA(I),B(1I)," ": RETURN 
30010 REMKMIOK FIN HR RER 





ORIC 


CAMEL'S BATITLE 


Aux commandes de votre vaisseau, le tableau de bord 
affiche les messages de la base qui communique avec vous. 
Des Xzorks déguisés en chameaux vous menacent et, 
pour les anéantir, il vous faut les toucher à dix reprises. 


IFGG< > 1960THENPRINT "ERREUR 
RE ke ke COCO DC OC ACNE MCC NE ON DE DATA ":END 


REMX CAMEL’'S BATTLE * CLS: INPUT'INSTRUCTIONS (O/N)":7% 
RE ACC OK OC NONOK CAC K 191 IFZ$="O"ORZS="OUI "THENGOSUB9000 
REM 192 REMk Ke COCOON IC ICICN 
RE KI NON ON IOIOK 193 REMX INITIALISATION 
REMX R.JUHEL * 194 REMIK #6 CC DDC DICK CCC CN 
REMY% 1986 _* 195 REM 
REMK NCI IOOIOOEK 196 CLS:G0SUB8000 
REM 200 FOR I=21T025 
POKE618, 10: CLS: CLEAR 210 PLOTZ.,1I.'eceereeeeeeeeeeeeeeeeeeeee 
A$="cd ced ceed cdcdcd eeceeeceeeeees" 
cd ced" 220 NEXT 
PAPERO: INK7 300 NI=NI+10:PLOT28,2,STRS (NI/10) 
REM ak ke ACDC DC HEC CC KE 399 REM 
REMKX REDEFINIRION x 400 FORI=1TO7:X(I1)= 180+(I-1) K45:NEXTI 
REMX DES CARACTERES x 405 FORI=1TO7:GH(1)=Q:NEXTI 
RE: 2 2 COCO CON ONCE 410 FORI=1T07:DE(I)=0:NEXTI 
FOR I=0T079 420 DF=INT (RND (1) k7+1) : PRINTàS, 75" 
READ A:66G=66+4 DETRUIRE LE YZORK ":;DF: "AVANT" 
POKE468S6+1I,A 421 PRINTà3,8:" QUE LE TEMPS SOIT NUL." 
NEXT I 490 A=2:1=1:S=15:R=S2 :W=1: Q=0: TE=500 
DATAO,0,14.62,62,7,0,0 491 X=92:Y=15:JB=0 
DATAO,0,28.31,31.56,0,0 492 Z=1:K=1:L=1:0=1:ZB=-1 
DATA1,3,7,:7:15,15,3%1,6S 493 REM 
DATAZ2, 48,56,56,60,60,62,63 494 RE MRC KO NOIOK 
DATA6S,65,65,85,65,65,65,63 495 REMX BOUCLE DU JEU * 
DATA12,12,12.12,12,12,12,12 496 REPTK NC NC DK ACC CNCK 
DATA1Z,12,12,12,12,.12,18,30 497 REM 
DATA 12,12,12,24,24,24,36, 30 500 REPEAT 
DATA 0,28,62,63,31,12,0,0 Soi IFTE>OTHENTE=TE-1:PRINTà10, 10: TE 
DATAO,0,0,0,0,0,0,0 502 IFTE=OANDGH (DF ) =OTHEN7000 


Læ—L: FL=1THENFORI=1TO7: X(I)=X(I1)—-1: NEXTI 

IFX (0) =OTHEN7000 

PRINTà10,115X(0)5" "505" X:"3Xx 

IF PEEK(#208)=189 THEN Â=1:7B=+1 

IF PEEK(#2060)=-172 THEN A=2:2B=-1 

SN=SCRN (20+2ZB, Y) : IFSN< > SZ2ANDSN< >4STHENEXPLODE : GOTO 7000 
IFXS19THENX=19: A=2: ZR=-1 

IFPEEK (#209) =132ANDV=O0THENN=20 : M=Y : AC=1 : PLOTN,M, "=" PB=P: ZAP 
IFAC=OTHENSSQO 

IFAC=1ANDSERN {N, M) < >4STHENGOSUBSOQ0 

IFAC=1iTHENPLOTN,M," se V=V+1: IFV=STHENAC=0: V=0 

IF AC=1THENN=N+PB: IFSCRN IN, M)<>32THEN GOSURSOQQ 

IFAC=1THENPLOTN, M, "-" 

IFPEEK (#208) =180ANDY<ZOTHENFLOT20,Y." M"sY=Y+i 

IF PEEK(#209)=156ANDY>1STHENPLOT20,Y," "esY=Y-1 

SN=SCRN (20, Y) : IFSN< >97ANDSN< >FHANDSN<>232 THENEXPFLODE : GUT07Qû00 
IFA=1THENPLOT20, Y, “b":A$=MIDS (AS, 2) +LEFTS (AS, 1) : PLOTZ, 20, A8: X=X-1:F=+1 
IFA=Z2THENFLOT20, Y, "a": AS-<RIGHTS (05, 1) +LEFTS (AS, 56) : PLOT2, 20,48: X=X+1:P=-1 
IFJB=OAND X+18>INT(X (K) ) ANDA< > 1 THENR=2: W=0: GOSUBT1903: JE=1 





95793 
587 
995 
596 
700 
BQOQ 
810 
820 


IFW=OTHENFORI=0TOS: PLOTR, S+1," “: NEXT 
IFJB=1THENIFA=1THENRER-. SELSER=R+1.5 

IFW=OTHENFLOTR, S, “ceed":PLOTR, S+1,"geeei":PLOTR,S+2,"ffff" 
IFW=OTHENZ=-Z: IFZ=1THENPLOTR, S+3, “ghgh"ELSEPLOTR, S+3,"hghg" 
SN=SCRN (20, Y) : IFSN< >97ANDSN< >9BANDSN< >32 THENEXPLODE 

IFINT (R) >S2THENGOSUR3009 : K=K+1 : JE=O 

IFINT (R) =XANDA= 1 THENGOSUBS099 : JE=0 

IFA=LANDX (K—1) >X-17. STHENGOSUBS280: K=K-1:JB=1 





2000 
2001 
2002 
2008 
2990 
2997 
2998 
29799 
3000 
3006 
3007 
3008 
3009 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3094 
5095 
3096 
3099 
100 
3119 
3120 
si30 
3140 
3130 
3160 
3161 
170 
S174 
3175 
3176 
35190 
3200 
3210 
3220 
3230 
3240 
3250 
3255 
3260 
I261 
5270 
S274 
3275 
3276 
32B0 
3290 
3300 
3310 
3320 
3ZS0 


UNTIL KEY$="S":GETZ$:GO0OTO0500 
REM de ke 0 k€ 2 HOME DK COCO AC CIC K 

REM% FIN BOUCLE JEU * 

REMk € k 1 CD CD CN CCC ù ; 
END Ù 

REM & 3 ke 2 MC Ke 2 CCC CC 2 NC 

REMk VARIABLES CHAMEAUX * 

REM x ok DC DK 26 CD CCC CCC CC OK | 
A$(1)="ceed ":AS(2)="eeeei":A$(T)="ffff "sAS(4)="ghgh “2: RETURN: 
REM ak 2 CM 9 DC CC CCC CCC CN 

REMX%X SCROLLING DROIT i * 

RE M ak ch 0 6 ACC DOC CCE 
GOSUBY000: IFW=1THENR= 19: RETURN 


FORJ=STOOSTEP-1 Fu F 
FORI=1T04 __ 3 





A$CI)SLEFTS (AS (I) ,9) 5 
PLOTSS, 14+1," " : 
PLOTS9-J,14+1,AS$(1) 

NEXTI 

NEXTJ: IFGJ<>STHENPLOTS1,4,"  “:W=1:R=19 


RETURN 

FRE ke 2 DC OK CCC CIC ON 
REM* SCROLLING GAUSHE i k 
EM DH CCC OC CC CN 
GOSUB3000: IFW=1 THENRETURN 
FOR J=5TO0STEP-1 

FORI=1 T04 
A$SCI)=RIGHTS (AS (I). J) 
PLOT2,14+1," " 
PLOT2,14+1,A$(1) 

NEXTI 

NEXTJ:W=i 

FLOT31,4," " 

RETURN 

REMIK 6e KM ECHO CCC 
REM*X SCROLLING GAUCHE 2 * 
EM 3 ke CHOC DDC DOC NC 
GOSUB3000: IFGH (K) =1THENWS1 : RETURN 
FOR J=1T05 

FOR I=i TO4 

AS CI)=RIGHTS (AS(I),J) 
PLOT2,14+I," 
PLOT2,14+1,A$(1) 

NEXT I:1IFGJ< >STHENPLOTIZ,4,STR#(K) :PLOT31,4.STR% (DE (K)) 


GOSUBS000 

NEXTIJ 

IFGH (K) =OTHENPLOTS31,4,STRS (DE (K) } 
RETURN 


RM KD DCHKDCNDCN OCOCN 
REMX SCROLLING DROIT 2 * 

RE ke he CCC CO OCR CE 
GOSUB3000: IFGH(K—1) =1THENR=33: RETURN 
FORJ=1T05 

FORI=1TO4 

ABCI)#LEFTS (AS (I) ,J) 

PLOT33,14+1,." " 
PLOT3S8-J,14+1,A$(1) 


3340 
5345 
3330 
3360 
3999 
4000 
4001 
95000 
5001 
93010 
9015 
9020 
5040 
95040 
93050 
9055 
9100 
5200 
5210 
5220 
932530 
0240 
5290 
95260 
9270 
9280 
5299 
5300 
2301 
6000 
68010 
6020 
6030 
6040 
59050 
69060 


8070 
6080 
6500 
6899 
8900 
6901 
7000 
7010 
7020 
7200 
7899 
7900 
7901 

8000 
8010 
B0z2Q 
BCOSQ 
8040 
8050 
8960 
8070 
8080 
8090 
8100 
g1i0 
8120 
8130 
6999 
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NEXTI 
GOSUB:000 


NEXTJ: WeO: R233%: IFGH(K-1) =OTHENPLOTS1, 4, STRS$ (DE (K—1) ) : PLOTI2,4,STRS# (EH 1) 


RETURN 

FREPA NC ACC OK HO OCOCDEOCOK DCR DOC 

REMk ROUTINE DES TIRS à 

RE OC 2 2 OC OC CODE OC ICO 

DE {K)=DE{(K)+1: 

SHOOT 

V=0: AC=0 

PRINTàS1.,43DE(K) 

IFDE(K)=NITHEN TU=TU+1:GH4{K) =1: EXPLODE : GOSURSZQG: W= 1: JBEO 
IFTU=7THENGOO0 

FORI=7TOISTEP-1 

LFGH(I)=OTHENO=I 

NEXTI 

RETURN 

FORJ=iTO10 

FORI=O0TOS 

PLOTR.S+I1,A$(I) 

NEXTI 

FORI=OTOS 

PLOTR,S+1," L 

NEXTI 

NEXTJ:PLOTS51,4,"  " 

RETURN 

REMK Mk CN MK 

REMX GAGNE * 

REM M OOK CHU K 

CLS 

PRINT'FELICITATIONS UNITE ZX-67." 

PRINT"'VOUS AVEZ REUSSI VOTRE MISSION AVEC BRIO." 
INPUT"VOULEZ VOUS ENCORE VOUS RENDRE UTILE 7":7$ 
IFZ8<}>"O0"ANDZ$S< > "OUI "THENCLS: END 

PRINT'VOTRE ADRESSE N'A D’EGALE QUE VOTRE COURAGE. " 


PRINT'MAIS ATTENTION L’ESCOUADRE DE XZORKS QUE VOUS ALLEZ AFFRONTER 


PRINT" FLUS DIFFICILE À ABATTRE QUE LES PRECEDENTES. " 


TU=0:GETZS:GETZ$ 

G0T0195 

REMAMKKKIRK # 
REMKk PERDU k 

REMX K CN NCOKK 

WAITSO: CLS: PRINT:PRINT" UNE AUTRE PARTIE?" 
INPUTZS:1FZ$="0"ORZ$= "OUI "THENRUN 

CLS: END 

STOP 

RE k 46 DC NC NC CR NO IE DE NC CO OK ACC KE 

REMX TABLEAU D'AFFICHAGE & 
REMXKKÉMARÉRÉÉENERRERERERUREK 
PRINT'eeeeeeeeeeeeeseeeeeeeeeseeseseeeeeeeeeee"“ 
PRINT'ececeeceeeeseeeeceeeeeeeseeseseeeceeeseeeee" 


PRINT'e TEMPS: 
FRINT'e DANGER: 
PRINT'eceeeseeecerereeeseeeecceeceereeeeeeeee" 
RETURN 

REM MR UK KA 


PRINT'e UNITE:ZX-67e MISSION no e e 
PRINT'eeeceeeeeeeeeeeeeeeeeceereseeeeeee ee e'" 
PRINT'e XZORK no 1 e NOMBRE DE TIRS:0 e e e” 
PRINT'eceeeeececeeeeseeeseeeeeeesceeeceeee ee e" 
PRINT'e MESSAGE: e e" 
FRINT'e e ee e" 
PFRINT'e e ee“ 
PRINT'"e e ee e” 

e e 

e e 


SERA" 


8900 REM *% INSTRUCTIONS k 

8901 REM 6 ke he CN MUC KR 

7000 CLS 

9010 PRINT"00000000000000900000000G00000000000000" 
9015 PRINT"O O0" 
9020 PRINT"O TILT PRESENTE CAMEL’S BATTLE a" 
9030 PRINT"O $ 0" 
9040 PRINT"O0000000000000000000000000000000900000 " 


9043 GJ=S: PRINT 
9050 PRINT"A L'AIDE DE VOTRE VAISSEAL VOUS DEVREZDETRUIRE LES HORDES SUCCESSIVE 


S'"'. 

9051 PRINT" DE XZORKS. " 

9060 FORI=1TOÏIS: PRINT: NEXT 

9070 PRINT"'VOUS VOUS DEPLACEZ AVEC LES FLECHES." 


9080 PRINT“<SPACE> TIR." 

9100 Z=1:R=2:8=15: GOSUBRS190 

9110 FORI=OTOS: PLOTR, 3+1," "sNEXT 

9115 R=R+1.5 

9116 W=0 : 

9120 PLOTR,S."ceed":PLOTR, 6+1, "eeeei ":PLOTR, S+2,"ffff" 
9130 Z=-Z:1FZ=1THENPLOTR. S+3, “ghoh"ELSEPLOTR, 5+5. "hghg" 
9140 IFINT(R) >S2THENGOSUBX009: GOTO9 100 

9150 IFKEYS<3>""THEN9210 

9200 GOTO9110 

9210 GJ=6 

9230 RETURN 

10000 REM KKKKKUX 

10010 REM x FIN * 

10020 REM XKKKKKK 





ORIC 


METEOR 


Votre vaisseau spatial réclame du combustible. 
Les cartouches de fuel nécessaires à sa bonne marche sont 
détruites au fur et à mesure de leur apparition 
par des météorites que vous devez anéantir sans pitié. 


2 ACC DOC OCDE HO NONKK CK 
"HKX METEOR R.JUHEL Kkkk 
2 NC OC OCDE DD DCR OO DICO ON AC CK 


"EFFACE LE CURSEUR. SUPPRIME LE SON .EFFACE L'ECRAN 
CLS: POKE618, 10: PAPERO: INK 7 

*REDEFINITION DES CARACTERES 
FORI=0T055: READA: POKE46856+ I, A: NEXT 


DATA42,21,42,21,42.21,42,21,8,12,1B,18,33.63,0.0.0,48,44,25,34,44,48,0,0 
DATAGS,33,18.19,12,4,0,0,%,13,17,49,13,3,0,0,12,30,63,6%, 30, 12,0 

DATAO, 30, 18, 30, #0, 18, 30,0 

GOSUB700 


* NIVEAU DE DIFFICULTE 

CLS: INPUT" NIVEAU DE DIFFICULTE (1/5) "34: 1FA<10RA>STHENSS 
Ve7 

* DECOR 





100 
101 
102 
103 
104 
110 
115 
120 
129 
130 
131 
132 
135 
140 
150 
160 
170 
171 
180 
181 
290 
299 
300 
301 
302 
303 
304 
305 
309 
310 
320 
325 
330 
340 
350 
397 
398 
399 
400 


410 
420 


4330 
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FRINT" SCORE: FUEL : b b b"“ 


FLOTEIO0+V,0," > 

PRINT''aaasaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" 

FORI=1TO2Z3: PRINT "a a'":NEXT 
PRINT'"'aaaaaaaaaaaaaaaasaagaaagaagaaaaagaaaaa" 

" VARIABLES / 
M=1: X=20: Y=iS:PX=0:PY=-1:F=500:B=0 

FORI=1TOË: X(I)=INT(RND(1)Kk2S) +55: Y(1)=2: IFSCRNIX(I),Y(I)) SZTHEN7S 


"ROUCLE JEU 

REPEAT 

PLOTIO.0,STR$S (5) : PLOT24,0,STRS$ (F) 

F=F-1: IFF=OTHENSO00 v' 
U=U+ 1: IFU=10THENU=0: GOSUB6SO0 


P=PEEK (#209) 

IFFB=1THENPLOTEX,BY," + 
IFP=132THENZAP:B=l1: AAC TOR RER PAS EEE 
IFR=1THENBX=BX+XB: RY=BY+YE 
1FB=1ANDSCRN(BX, BY) < >S2THENGOSUBS10 







NEXT r 
| 

IFB=1THENPLOTEX, BY, "+" 

1FP=172THENM=M+ 1 : J=1: IFMSSTHENM=1 

IFM=1ANDJ=1THENPX=0: PY=- 1 

IFM=Z2ANDJ=1THENPX=1:PY=0 

IFM=SANDIJ=1THENPX=0: PY=i 

IFM=4ANDJ=1THENPX=- 1: PY=Q 

IFP<180THENPLOTX,Y," "s IFSCRN(X+PX, ne X+PX 2 YEY+PY 
IFSCRN(X, Y)=10STHENF=F+10 ; 
PLOTX, Y. CHRS (97+M) 
IJ=1J+1:1FIJ<4THENBO 

FORI=1TOA 

IFB=1ANDX (I) =RXANDY (I) =BYTHENGOSUBX1 0 
IFX (1) =XANDY (I) =YTHEN500 
FLOTX(I)4YCI)," " 

IFY (I) >YTHENY (1)=Y(I)-1:GOTO180 
IFY(I)<YTHENY(1)=Y(T)+1 : GOTO180 
IFXCI)<XTHENX (1)=X (I) +1 
IFX(I)>XTHENX(I)=XCI)—1 
IFB=1ANDX (I) =BXANDY (1) =BYTHENGOSUB310 \ 3 
PLOTX(I),Y(I),"$" | 7 SL 
IFX(1)=XANDY (1) =YTHENSO0 à : A SZ \ Re D 
J=0 : PV 1/40 x a 
NEXT F D 18 DS 
UNTILP=169 k 


? FIN BOUCLE JEU Ps 
Ê © 0 
” ROUTINE DE TEST DE LA BALLE 4 


W=SCRN (EX, BY) PP ne ON 


1FW=97 THENB=0: RETURN ns d A 


SHOOT ST ME 2 
FORI=1TO6 | 
IFX(I)=BXANDY (1) =BYTHENPLOTX(ID,Y(I)," "= XCI)=S:Y (1) =2:5=5+10: R=0: RETURN 


NEXT 


* CALCUL DE LA TRAJECTOIRE DE LA BALLE 
1FM=1iTHENXB=0: YB=-1: RETURN 
IFM=2THENXBz1: YB=0: RETURN 
IFM=STHENXB=0: YBs1i : RETURN 
IFM=A4THENXB=- 1: YB=0: RETURN 


? GESTION DES VIES PERDUS 

V=U-2: PLOTSO+V, O0," ":WAIT300: CIS 

EXPLODE 

IFV:1THENS9 

CLS: INPUT"VOUS RECIDIVEZ (O/N)":2%:1FZ$="0"THENRUNELSECLS: END 
AFFICHAGE DU FUEL 

J=INT CRND (1) K2S) +3: K= INT (RND (1) K19) +2: IFSCRN(J,H) =S2THENFLOTI,E,"g" 
RETURN 


?  INSTRUCTIONS 
CLS: PRINT" METEOR " 
PRINT:PRINT"VOTRE MISSION: SURVIVRE": PRINT: FRINT'VOUS RECUPEREZ LE FUEL‘g5 * 


FRINT"'VOUS DETRUISEZ LES METEORITES €f5>":PRINT:PRINT" TOUCHES: “ 
PRINT"'<-—: CHANGEMENT DE DIRECTION":PRINT"<SPACE ;: FEU" 
PRINT"'FLECHE RAS: AVANCER"‘: GETZ$: RETURN 

» 


* METEOR FIN 


» 





ORIC 


FREEZE BERT 


Un jeu rafraîchissant qui se déroule sur quinze niveaux. 
Zozo, charmant glaçon, cherche d’une part à glacifier 
tout ce qui tombe entre ses petits doigts gelés et d'autre 
part à manger le maximum de boules de feu. Il doit 
aussi échapper au très méchant Creasy qui veut le dévorer... 





RE MT KE COM OCORE DÉCO COCO OC OC CO COCO DK OC OO COCO DONC N 99 DATA14,10,10,15,0,06,0,15 
REMR k FREEZEXRERT 100 DATAZB,20,20,60,0,0,0,60 
REMXX 1966 R. JUHEL 101 DATAO.0,15,0,0,15,0,15 
REMkK ORIC1/ATMN0S 102 DATAQ,0,60,0,0, 60,0, 6Q 
RE 0 OM OC OK DO DC OC DRC RC COCHE COR CCR COCO OO CCM HOHOK 103 DATA14,10,10,15,0,15,0,0 
REMT K AK OC 0 OC DC OK COCO DK DC OMC DCR OC OCDE OK COCO DC CCC K 104 DATAZ8,70,20,60,0,60,0,0 
REMX%X VARIAELES DU DERUT Li 105 DATA15,0,0,15,0,0,0,15 
RE KA 2 2€ CON OC KO DC OMC OC ORCORC CC OC DR OKC OK CCC HKOKCCHCNC KC 106 DATA60,0,0,60,0,0,0, 60 
CLS: POKE618, 40: VI=3: PAPERO: INKé: 107 DATAS3,65,63,30,12,4,0,0 


TI=1000: GOSUR 5000 108 DOKE 18,48000: PRINT" MICROJEUX — 


FREEZEXBERT - R.JUHEL “:CLS 
REMXXREDEFINITION DES CARACTERES##* 
FOR 1=070175 109 REM ENVOIE AU INSTRUCTIONS 


READ A4 110 GOTO 3000 

POKE468S6+1,A 120 REMAKE NN KA ON OKON OR OC MC OK CNE OC CC 
NEXT 130 REMKKkkk DECOR , TABLEAU k 
DATAO.0.0,1.2.4,15,8 140 REMKkkkké VARIABLES DU JEU * 
DATAO,0,0,6%,3.5:57,9 150 REMK ka 4 ke NC OC OC AC OCR CR KE 
DATAS,41.,10.12.,56,16,16,48 191 DOKE 18.48000:PRINT" MICROJEUX — 
DATA6Z, 63,63, 0,0,0,0,0 FREEZEXRERT -— R,JUHEL ": CLS 
DATAO,0,0,63,46,40,39, 36 P=Q 

DATAQ.,0,0.,49,8,4,60,4 . HO=TI 

DATAS6,537,20,12,7,2,:24S FOR I=3 TOXSSTEP 6 
DATA4,20,4,4,60,6,9,46 PLOTI.24,'"eeee" 
DATÉA2,20,36,18.10,10.9,39 NEXTI 

DATA20,54,%6,21,57,42,52.49 FOR I=6TO03OSTEP6é 

DATA4S8, 10,19,40.,56,19,68,7 PLOTI.22,'"eeee" 
DATA4,20,18,5,9,50,4,56 NEXT I 


D + © O1 BU Né © 
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FOR I1=9TO268STEPé 

PLOTI.,20."eeee" 

NEXT I 

FOR 1=12 T0O24 STEF 6 

FLOTI,18,'"'eeee" 

NEXT I 

FOR 1=15 TO21STEPé4 

PLOTI,16, "eseee" 

PLOT2, 13, "BONUS: “2: PLOT2,14, "vvvvvvvyve 
PLOT26, 13, “SCORE: “: PLOT2B, 14, "vvvvvvvvvvy 
FLOT2,2,"VIESs "sPLOT2. 5. "vvvvv! 

NEXT I 

FOR 1=15T021STEP6: PLOTI,12,'eeee":NEXTI 
FORI=12T024STEP6: PLOTI,10,'"eeee":NEXTI 
FORI=9TO0O28STEP6: PLOTI,B,"eeee":NEXT I 
FORI=12T024STEP6: PLOTI.6."eeee":NEXT I 

FOR i=15T021STEPF6: PLOTI,4, "eeee":NEXT I 
PLOT18.2,'"eeee" 

FLOT18.14,'"eeee" 

REM ca ke CCCDEACCNGOOICR 

REMX*X VARIABLES REPRESENTANT  **% 

REMX4k DES COORDONNEES SUR LA  *%kXk 

REMXXk PYRÂAMIDE. XX 

EMA 28 46 0 0e C0 DC OC 2KC DMC 0 OK OC OC ORCH ONCORC CO DC OC OC CN 

PO=1:X=4: Y=22:PE=1:Vai9:Wm12:CVci:R=22: 6=2 
REM IL EST NECESSAIRE D'AFFICHER ZOE ET CREAZY DES LE DEEUT DU JEU 
REM SINON IL N'APPARAISSENT PAS TOUT DE SUITE 
PLOTV,W, "rs": PLOTV,W+i, "tu" 
PLOTR,S,"jk":PLOTR,S+1,"1m" 

REMk 10 0 2e ke 2 06 OK CC DK CC NC AK DC NC NC ROC NCNCN 

REMXK BOUCLE PRINCIPALE LE: 

REMXXk DU JEU. kk 

REMK dc 0e 4e ok DMC DC 78 DK DUC DE DK D OK CC DÉC OC D AC COCO 

REPEAT 

BO=R0-1 

1F RO=0 THEN GOSUE 2000 

TI=TI-1 

PLOT?,13.STRS# (TI): PLOTSES, 15. STR$ (SC) 

PLOT 5.2, STR$ (VI 

XS=KEYS 

1F' PEEK (#2060)=197THEN GOSUB900: XaeX+3:Y=Y-2: PO=2 
IFPEEK (#208) =159THENGOSUB900: X=X+3%:Y=Y+2: PO=2 
IFPEEK(#200)=174THEN GOSUB 900: X=X-3: Y=Yy-2:POsi 
IFPÈEK (#208) =170THEN GOSUB900:X=zX-3:Yey+2 : PO=1 


IF X=R AND Y=S THEN SC=SC+15 

IF SCRN(X,Y+2)=32 THEN GOSUB 2000 

IFX=1 THEN GOSUB 2000 

IF SORN(X,Y+3)=32 THEN PLOTX-1,Y+3, "vYvvv sr PING: P=P+1: SC=SC+IG 
IF P=3é THEN ZAP:CLS: SC=SC+B0: GOTO 190 

IF PO=1THEN PLOTX.Y, "ab": PLOTX.Y+1, "cd" 

IF PO22 THEN PLOTX,Y,'"#qg":PLOTX,Y+1,"hi" 

IF CV=NDTHEN 690 ELSE 750 

IFX<V AND W>YANDSCRN(V-S,W)<>32THEN GOSUB 910:V=V-3: 

IF X>V AND W>YANDSCRN(V+ZI,.W)<222 THEN GOSUR 910: V=V+ 

IF W=21 THEN 7350 

IF X>V AND Y>WANDSCRN(V+S,.W+4)<332 THEN GOSUB 910:V=V+3: W=W+2 
IF X<V ANDY>WANDSCRN(V-S,.W+4)<332 THEN GOSUB 910:4V=V-3: W=W+2 
IF PE=1i THEN PLOTV,W, "no": PLOTV,W+1,"pq"ELSEPLOTVY,W, "rs": FLOTV,W+1, "tu" 
CV=0 

PE=-PE 

CV=CV+i 

IF X=V AND W=Y THEN GOSUR 2000 

IF S=2 AND Y=0 THEN 780 

IF CH=7 THENPLOTR,S,"  ":PLOTR,S+1," “:GOTO761ELSE 780 

IF X>RANDY>S ANDSCRN(R+S,S+4)<532 THENR=R+S: 6=5+2 








762 IF X£R AND Y#S AND SCRN (R—3, 9) € >I2THENR=R-7: 5-52 
763 IF X<RANDY SAND SCRN (R-3, 9+4) € >S2THENR=R-3: S=5+7 
764 IF X5R ANDY<SANDSCRN(R+S,S)<232THEN R=R+3S:5=5-2 
765 IF SCRN(R,S+3) =96THEN P=P-1:PLOTR-1,S5+3," F 
768 PLOT R,S,"jk":PLOTR,S+1. "1m" 

767 IF SCRN(R.S+3)<532 THEN P=P-1:PLOTR-1,5+3," L 
77Q CH=OQ 

780 CH=CH+1 

800 UNTILX$="S" 












900 PLOTX,Y,"  “:PLOTX,Y+1," "3 RETURN 
910 PLOTV,W,"  "aPLOTV,W+1," "3 RETURN 
999 END 


1000 CALLDEEK(#FFFA) :REM POUR REDÉFINIR VOS CARACTERES 

1995 REMX KA 0 Ce OCDE OC OC ONCE 

19986 REMXX GESTION DES VIES LL 

1997 REMXX PERDUES. LE: 

1999 REM CN 0k CH 2 2 NOM DMC ONCE NEO DHC OC CCC OC CRC DONC NON 

2000 X=4:Y=22:VI=VI-1:FOR 1570 TO 7:WAITI:MUSIC1,1,4,13:NEXT:PING 
2010 FOKE(#208),0 

2015 WAIT100 . 

2020 IFVI=0 THENGOSUB6000:GOTO 5921 








































2023 PLOTV,W,"  "sPLOTV,W+1,"  " 
2024 PLOTR,S."  “s:PLOTR,S+1,"  " 
2025 PLOT X,Y."  “:PLOT X.Y+1,"  " 


2076 V=19:W=i2:R=22: S=2 

2027 PLOTV,W,"rs":PLOTV,W+i, "tu" 

2029 PLOTR,S."jk":PLOTR,S+1,"lm" 

2030 RETURN 

2 100 REMK 3k ke 0e DK ACC DCE CON DH DC DUC DCE ACDC OO NOK 

2200 REMXX  INSTRUCTIONS Li 

2300 REP ak M Ok DK 28 CA COCO DC OC CCC OCDE DOC 

3000 CLS 

300 1 REMk 6€ 06 0 he CC DMC Ke COR ORDRE DC DMC OR OCR CCC 

3002 REMXKk#kkk« TITRE KR 

3003 REM te he he 0 0 DC OO OC DEC COCO DD DC CC CN 

3010 PRINT:PRINTCHRS& (27)3;"N"s" FREEZEXBERT “ 

5020 PRINTCHRS (27)3;"N"s" FREEZEXRERT" 

3030 PRINT:PRINT" OÙ LES TRIBULATIONS D'UN GLACON”" 

3035 PRINT:PRINT:PRINT 

3036 REM %k kc X 0k 4c ak OMC DC OK OC CERN DC OC OK COCO KC 

3037 REMX*X SITUATION DU CONTEXTE 

3038 REMX NRA KR OK OC OK OC TK COCO DÉC OC COR NC CK 

3040 PRINT:PRINT'ab VOICI ZOZO QUI DOIT GLACIFIE TOUTE cd LA FYRAMIDE." 

35045 PRINT 

3050 PRINT'jk ZOE-FAIT FONDRE LA PYRAMIDE À 1m MESURE QUE Z0Z0 AVANCE. ";: 
305$ PRINT"'{1SPTS)." 

3040 PRINT 

3070 PRINT'rSsCREAZY-IL VEUT REDUIRE 2070 À L’ETATEULIQUIDE." 

5075 GET AS 

30890 PRINT:PRINT:PRINT 

ZO8B1 REM  6  C 0 1 DÉC OMC OC CC CC A COCO IC CCC K 

240892 REMXPRESENTATION DU  CLAVIERXKYHX 
REM ke de 0 76 DK DC OC 28 COCO KG OK DC OC CO DAC CO OC CC OK K 
PRINT" DEPLACEMENTS" 
3110 FRINT:PRINT 

3120 PRINT" <°5> HAUT/DROITE" 
2130 PRINT" <4> HAUT/GAUCHE" 
3140 PRINT" </5 RAS/DROITE" 
3150 PRINT" <Z> BAS/GAUCHE" 
3160 PRINT: PRINT I PRINT 
2161 REMK 6 2 CR CCC DCI MC CCC OCR OCKC 

3162 REMKXKXK*X OPTIONS CERTES TLEE) 

310623 REMk dc 28COÉC EC OOMCOHCOKC KG AC ECO CO OC A CE CO NC H 

3165 FRINT:PRINT'"'"J” POUR JOUER / ’T” POUR LES SCORES" 

106 GET B$ É 





3167 IFA$<>"T'ANDBS< > "J"THENZ166 
3170 GET B$ 

3171 IF B="T'THEN 3190 

3172 REMAKE KO CRC CCM DOC OO OO 

3173 REMkKK NIVEAU DE DIFFICULTE KX4X 

3174 REMC  C CD DK CO DC DCI CCE ONE 

3175 INPUT'NIVEAU DE DIFFICULTE ,DE 1(DUR) À 15 (FACILE) “3; ND 
3176 IFND<1 THEN PRINT"'VOUS SAVEZ PAS LIRE. ":GO0T05175 
3177 IFND>ISTHEN PRINT"'VOUS FAITES EXPRES!":G0T03175 
3180 TI=1000:VI=3:CLS:GOTO190 

3181 REP OK OK OK DCR DDC DOC CCE 

3182 REMX TABLEAU DES SCORES xx 

3193 REMAKE DMC OC KO CD DO COIOION 

3190 CLS:PRINT 

3200 PRINTCHRS# (12) 

3210 PRINTCHRS (4) : 

2220 PRINT CHRS (27): "NN": 

3230 PRINT" TABLEAU DES SCORES"“ 

3240 PRINT CHR$(4): 

3250 PRINT:PRINT: PRINT: PRINT 

3251 RE # Mk KO KO DCK DO OK 

3252 REMX*X AFFICHAGE Uk k CCI CON NOK 

3253 REA MC CHOC DK DCR ON CC COR 

3260 PRINT = " 

3270 PRINT'"'ù NOMS ù SCORE u" 

3280 PRINT y 

3290 FOR I=1 TO 9 

3300 PRINT"'U “3SC$S(1)3" ù ":SC(I) 

3305 PLOT?28,8+1,"û" 


3310 NEXT 

3315 PRINT “2 PRINT: PRINT 
3316 REMAKE DK CI OO NO OX 

3317 REMXXKX OPTIONS CUPLTE 


3316 REMX A0 coco KO CO DOC COCO OGC 0 CCC 

3320 PRINT'‘J’ POUR JOUER / ?’1’ POUR INSTRUCTIONS" 

3330 GETAS:IF A$="1" THEN 3000 

3355 IF A$<>"J"THEN 3330 

3340 REMX k 4000 Ok DC OC DCE OC OC CCD AC OO 

3350 REMX%XKk NIVEAU DE DIFFICULTE KKkkx 

3360 REMAKE DC NC OC OO DK CE OC OC CO ON AOC 

3370 INPUT'NIVEAU DE DIFFICULTE .DE 1{DUR) À 15 (FACILE)";ND 
3380 IF ND<1i THEN PRINT'VOUS EXAGEREZ. ":G0OT0535:70 

5390 IF ND>1STHEN PRINT “AH,C'EST MALIN. ":GOTO3537Q 

3400 TI=1000:VI=33: CLS: GOTO190 

3900 REMAKE OM OMC OCR COK ECC COCO DK DOC OK OC CON 

3910 REMKX4 SAISIE DU NOM DU JOUEURX 

3920 REMAKE OK COR DOC OC OC OCOC COCO DEC MC OC ACC NO NON 

3921 CLS 

32922 REMKKAX EXPLICATIONS KO KR UORNK 

3920 PRINT" VOUS VOUS DEPLACEZ AVEC LES FLECHES, VOUS ECRIVEZ AVEC <SFACE:, VOUS" 


. 


3740 PRINT" EFFACEZ AVEC <DEL?>,VOUS CONCLUEZ AVEC<RETURN >" 
3945 WAIT400 
49950 GETX#:CLS 


4000 PRINT: PRINT: PRINT: PRINT" C’EST QUOI TON FETIT NOM ?° 
4010 PRINT:PRINT: PRINT: PRINT: PRINT" "; 
4015 N=0 


4016 REMXK KM KA NC OC DUC OC D OC OC COCOON OC CCC NOK 
4017 REMKkk BOUCLE DE SAISIE. KKkkkkuxk 
40168 REPTKK KM MK CC OK ONCE OC ON OK CAC OCDE OK CON K 
4020 FOR I=657090:PRINTOHRS (I) ::NEXT 
4030 X=5:N(0)=EZ : N=0 

4040 REPEAT 

4045 WAITS 

4050 IF PEEK(#208)=172 AND X>S THEN X=Xx-1 


164 


4060 IF PEEK{#208)=198 AND X431 THEN X=X+1 

4070 FLOTX-1,97," © " 

4080 IF FEEK(#208)=132 THEN N=N+1:N (N)=SCRN(X, 8) : WAIT ZOO: FOFE (#208),18% 
4090 PLOT 6+N, 11, CHRS$ (N (CN) ) 

2095 IFPEEK(#208)=175STHENFORZ=(N+1) TOS:NCZ)=52 
4096 IFPEEK(#2Z08) =173ANDN>OTHENPLOTS+N, 11," ": 
4100 UNTIL N=9 

4101 FOR I=1T0 9:NS=NS+CHRS (N(I) ) =: NEXT 

4105 REMAKE CAC NON MOD OCOKC DDC OK DOC COCOON OK 

4106 REMK4xX MISE À JOUR DU FICHIER *K*% 

4107 REMKXKX DES NOMS ET DES SCORES K*X 

4108 REMK M 0 He KORG OK DICO COCO ONG OC OK OC OC OK CH 

4120 FOR I=1 TO 9 

4130 IF SC>?SC(I) THEN 4500 

4125 IFSC>SC(9) AND SC<SC (8) THENSC (9) =SC: SC$ (9) =N$: GOTOZ190 
4140 NEXT 

4200 GOTOS190 

4500 FOR B=9TO(I+1) STEP-1:SC(B)=SC(B-1):SCS CH) =SCS (H—-1) : NEXT 


N=N+1: NEXTZ 


NE=N—-1: WAIT 20:FOKE(#206),189 


4550 IFSC>SC(I) THEN SC(1)=9C:SCS(I)=NE | 6070 CURSET112,109,1 

4600 G0OTO05190 8071 DRÂAW-4,36,1 

4995 REMA 0 ke NOK OC CRC CD DHOOEO COCOOEE CC C O 60753 CURSETS82,117,1 

4996 REMKKXX VARIABLES NUMERIQUES #4 6076 CIRCLES, 1 

4997 REMXKKkKX ET ALPHANUMERIQUES , KkxX 6080 CURSET97,121,i1 

4998 REMXXkk FOUR LES SCORES kAX 6081 CIRCLES, 1 

4999 REMY KA 0 OMC OC OK AK OKON OC OK OC ORCH COCO OC CC MON 6085 CURSETOHS, 135,1 

5000 REM 6086 DRAWA4,—-4,1 

5010 SC(1)=10000: SC$(1)z="DRACULA 6987 DRAW9, 10.1 

5020 SC(2)=5000: SC$ (2) ="MICKEY me 6090 CURSET77,145,1 

S0S0O SC(3)=2500: SC (5) ="STEPHANIE" 6091 DRAW-11,15,1 

5040 SC(4)=2000:SC$ (4)="SANDRA Le 6092 DRAU-9S,-8, 1 

5050 SC(5)=1000:5C$ (5) ="OKBERT G 6093 DRAW-S,S, 1 

5060 SC(6)=800: SC$(6)="PAC-MAN  " 6094 DRAW16.6.1 

5070 SC(7)=700:SC(7)="YOYO " 6095 DRAW10,-19,1 

S080 SC(8)=500:SCS% (9) ="BRUNO 6100 CURSETIZ4,159,1 

5090 SC(9)=1:S0$ (9) ="JEREMY 6105 DRAW1I9,14.,1 

5100 RETURN 6110 DRAW-15,10,.1 

5900 REPMIK 4 M 0e OK OM UC OM OC OC OC OC OO TC DH DC KO NOK 6115 DRAW6.S. 1 

GS600 REMXX DESSIN EN HAUTE xx 6120 DRAW11,-—18,1 

5700 REMKkX RESOLUTION LE 6125 DRAW-16,-13,1 

S800 _REMM K dc 4 ke C OCOKCDKC DMC OC OK COM ED CCC CC CCC ON K 6500 PRINT" C'EST DUR D’ETRE 

68000 HIRES : UN GLACON": 

G0O01 :POKE618, 10 6600 WAIT300 

6005 CURSET74,106, i 661iQ TEXT 

6006 DRAW2S,-354, 1 6620 POKE618, 10 
6007 DRAUS2,5S, 1 $ : 6630 FORI=1TO4:MUSICI,1.,5,12:WAIT20: 
6010 DRAW-37,35, 1 : NEXT:FING 

60270 DRAW-39,-2,1 6640 RETURN 

6030 DRAW-2,34,1 6999 END 

6040 DRAWSS,S5,1 8000 REMAKE AK KO OC OMC OC OK KG OC OCT DC CO EC COR M CON 
6050 DRAUWS7,-15,1 9010 REMKXFREEZEMBERT PAR R.JUHEL * 
6060 DRAWG,-5S5, 1 8020 REM KM 0e 0 4 ke A 0 DC CD OM CC OMC OC DNC C OCC OOKC CCC 


ee mere a MP SP man 





